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EDITORIAL 



Milium TTTTTTT 

Christmas has once again been and gone 
and we are now well into 1987. With all the 
difficulty of trying to get a magazine out in 
the Christmas rush we decided to put out 
a double issue to start off the new year and 
to bring the magazine right back into it's right 
time-frame. 

A marvellous Christmas was had by all at 
our place, with 14 members of the family 
staying. Christmas morning saw an absolute 
mountain of presents under the tree and an 
even bigger mountain of food to be 
demolished. 

Our 10 days away were spent sailing around 
the Marlborough Sounds, away from it all. 
Absolutely glorious! 

This edition sees a variety of programs, 
including contributions from some of our 
Australian members, the continuation of 
"The Sega Computer", a review of one of 
our games by one of our younger members, 
and some brief comments on the results of 
the survey sheets you all completed. 

From all the staff at Sega Software — Happy 
1987! — may it be happy and prosperous 
for you all. 

Glenys Millington 
Editor 



LETTERS • • to 
THE EDITOR- 



O 



DEAR EDITOR 

Like others 1 am frustrated by not being able to run "Jet 
Ranger" on a 32K cartridge It seems to me that the answer 
must lie somewhere in the POKE or CALL addresses for the 
machine code. Can anybody help — or do I just scrub the 
hard work of typing it all in? 
B.C.R. Davis, Bucklands Beach. 



DEAR EDITOR 

I noticed in the July/August magazine that the Basic keyword 
MOTOR appeared in Table XXX2 What is the keyword used 
for and in what circumstances? 
N. Hanson, Dunedin. 

EDITORS REPLY 

MOTOR is used to control the cassette port. It does not seem 
to be implemented in Sega Basic. 

DEAR EDITOR 

I am a member of the club and have found the mags of late 
very good, but can you please tell me how to use commands: 
*Save v "*••", start, end, "Save c " " " * " start, end and what 
it means by: IF CHR$(0) Please tell me what 1 have to do 
with these. 
Denver Scott, Bucklands Beach. 

EDITOR'S REPLY 

Contact Mike Hadrup on Auckland 534-3379. 



DEAR EDITOR 

1 am writing to you with a few small questions and ideas for 
your excellent magazine. 

1. Where can I buy a copy of Brian Brown's Sega machine 
code book? I know you are publishing a series of articles from 
it, but I would like a copy. 

2 Why don't you have in your magazine a "hints and tips" 
page for games and things for the Sega? You could ask people 
to send in maps, hints, ideas, etc.. for the Sega games software 
and you could publish them in each issue. (I myself could send 
you maps and hints on most of the Sega adventures, lots of 
the cartridges and cassette software.) 

If this idea was carried out it would help many people get 
further on and enjoy their games more. 
David Downs. Wanganui. 

EDITORS REPLY 

I do not know of any outlet that still has Brian Brown's book 
in stock. With regard to your suggestion on hints and tips for 
games — a good idea — maps however, would not be suitable 
for reproduction by the printers. 



DEAR EDITOR 

Could anyone supply me with information, software and 

circuits for modems or interface to use the Sega as an RTTY 

terminal. 

1 know various other computers have this software, etc 

available, but as I have had my Sega since July 1984. I would 

like to use it in this mode. 

J. Lindsay, Pakuranga. 

EDITORS REPLY 

Can anyone help? 



DEAR EDITOR 

Three small printing errors in the random-shuffle routine in 
the last magazine. Correct lines are: 

80 IRS = "": IF LEN(1$) > J THEN IR$ 
= RIGHT$(I$.LEN(I$) - J) 
1 TO LI 
M$ + J$(K) 



120 FOR K = 

130 M$ = 



Chris Rodliffe, Auckland. 

EDITOR'S REPLY 

Our apologies! 



DEAR EDITOR 

1. The Sega seems to be coming of age. thanks to the 
routines of Michael Hadrup I have read plenty of extension 
programs for other computers, V12, C64, ZX Spectrum, bui 
not knowing enough about machine code or the Sega ROM 
routines I could not see how to extend Sega Basic 

(a) Would Michael Hadrup be willing to write an explanatory 
article detailing his routines? Does he revector the error 
messages to include his new routines? 

(b) Perhaps Michael could look at writing file handling 
routines for cartridge Basic, and tape recorders, along the lines 
of Print #1, Input *1. etc. 

2. 1 don't know if this will help Chris Rodliffe. but my first 
Euromatic was returned for repairs due to erratic operation, 
the volume level had to be set lower and lower, until it no 
longer worked FTC actually replaced the dataset with anotli. 
Euromatic and this one is generally reliable at volume setting 
6-7 but it occasionally requires lower settings to load program'. 

1 look forward to receiving more great magazines. 
D. Coursey. Christchurch. 

EDITOR'S REPLY 

(a) Yes — more in later issues. 

(b) Unlikely — ring Michael Hadrup, phone numb, i 
above. 



DEAR EDITOR 

In the July/August magazine you answered my letter in which 
I wanted a program for producing anagrams. 

While in Australia on holiday 1 gave the problem to my 
16-year-old nephew and he came up with a program in about 
a quarter of an hour on his Apple II which with one small 
adjustment works on the Sega and is printed below: 
5 Rem Anagrams (Input word is EARTH) 

10 FOR T = 1 TO 5 

20 R = INT(RND(T)*5) + 1 

30 ON R GOTO 40.50.60,70,80 

40 IF Wl< 1 THEN PRINT "E";:W1 = 1 : GOTO 100 

45 GOTO 20 

50 IF W2 < 1 THEN PRINT "A";:W2= 1 : GOTO 100 

55 GOTO 20 

60 IF W3< 1 THEN PRINT "R";:W3=1 : GOTO 100 

65 GOTO 20 

70 IF W4 <1 THEN PRINT "T";:W4=1 : GOTO 100 

75 GOTO 20 

80 IF W5<1 THEN PRINT "H";:W5=1 : GOTO 100 

85 GOTO 20 
100 NEXTT 

105 W1 = : W2 = : W3 - : W4 = : W5 = 
110 PRINT: GOTO 10 
If you have a word with two letters the same, e.g. instead of 
"earth" you input "three" the appropriate line would be. IF 
W4< 1 THEN PRINT "E":: W4 = W4+.5 : GOTO 100 and 
delete W5 or you will get more than two E's. 

PS. I was delighted to receive the SP400 Printer Plotter for 
the "Sega is Supreme" competition. 
B.A. Turnell, Waikeria. 

DEAR EDITOR 

With reference to the reported problems with "3-D Noughts 
and Crosses" these are caused by one of the "classic" boo- 
boo's of programming — that of jumping out of a 
FOR ...NEXT loop without properly terminating it. 

When the variable concerned is used again as the INNER 
variable of a Nested Loop then the program crashes with a 
"Next Without For" error on the OUTER variable. (Since the 
error appears on the "wrong" variable, it can be very tricky 
to find the culprit.) 

In the reported case, the error occurs in the loop in lines 

1590-1690. with the jump-outs in lines 1660. 1670. and 

1680. 

The relevant lines from the program are: 

1590 FOR K = TO 18 

1680 IF P < 10 THEN 1720 

1690 NEXT K 

1720 (REM) 

2310 FORJ = lTO4 

2350 FORK = lT0 4 

2450 NEXT K 

2470 NEXT J 

Running this program gives the reported error "Next Without 
For In 2470" (i.e. the error appears to be on J). 

This error can be eliminated by replacing the FOR. NEXT 
loop in lines 1590-1690 with an IF... GOTO... The two lines 
to change are: 

1590 K = l 

1690 K = K + 1:IF K < 19 THEN 1600 

There is a similar error in lines 2160-2180 which will produce 
a "Next Without For in 2480". To cure this one, change these 
lines: 

2160 J = A 

2180 J = J + 5-2*A:IF J<10-3*a THEN 2170 



The exact nature of the consequences of jumping out of a 
loop are rarely spelt out in programming texts and the cause 
of the fault is not obvious. 
G.R. Petherick, Auckland. 

DEAR EDITOR 

As usual, I was the 5th person to read Sega Computer for 
October in our household! 

1 Hucal. The undermentioned secret to sorting is that the 
cursor should be placed at the top left corner of the block of 
information to be sorted. I use Hucal for my genealogical 
research and stamp collection. 

2. K. Nightingale's printer problem. This is a problem that 
all "Sega Basic" systems have! Enclosed is a copy of "Comset" 
routine correction to permit the expected operation of the 
RS232 port. 

3. Character patterns. Enclosed is a list of patterns starting 
at &H1A08 in VRAM. These may be copied onto a initialising 
program or simply direct entry if only a few are involved. Good 
programming should not require the Primary character set to 
be altered as there is an alternate 126 to be utilised 

4. C. Rodliffe's Euromatic. The Sega is sensitive to wave 
shape and stability, so recorder head azimuth might need 
adjusting. Also a cotton bud and meths or alcohol make good 
head cleaners, an important requirement for any recorder 

I have had a successful load from an ordinary player, a 
program that would not load from my Sega dataset! 

5. If D. Coursey were to peruse a book on the Z80 
microprocessor, he/she might get a better feel for machine 
code. The 'CB' and 'ED' are prefixes to the hex code to 
give the mnemonic indicated in that column. 
Enclosed are a number of programs. The directory 
presentation should be a good asset to Basword 

I enjoy our magazine, especially as there appears to be 
increasing input on the intricacies of Sega and machine code. 

It appears that M. Howard has left publishing for Sega. What 
a pity — he started something useful. 

P.S. Would it be pertinent to publish the addresses of those 

who have their contributions published? Please do with mine. 

A useful information interchange could result by direct 

communication. 

B.E. Pycroft, 261 Wellington St, 

Wainuiomata. Ph (04) 646-790. 

EDITOR'S REPLY 

1. Thank you for the useful and informative comments. 
Addresses of contributors can only be published with their 
consent. 

2. Michael Howard was at varsity last year and therefore not 
always available to do a column. However, we do have 
another contribution from Mike in this issue. 

3. Most of the programs mentioned in your letter are 
published further on in the mag. 

4. Your earlier comments regarding the 255 colour hues 
appears to be correct. Unfortunately we no longer have access 
to the original content of the magazine (when Grandstand 
were publishing it) to rectify the error. 

5 Regarding your confidential comments — a great idea 
— do you know of someone that can do it. 

DEAR EDITOR 

Could you please supply me with some info on the game 

Lode Runner"? Michael Wilkinson, Opotiki. 

EDITOR'S REPLY 

"Lode Runner" has not been available in New Zealand for 
quite some time now and is unlikely to be available again 



The special offers to members in the last magazine brought in an enormous pile of mail in the 
two weeks leading up to the Christmas break, and all the staff worked right through to the 19th 
December to ensure that everything was processed in time. We had hoped to close on December 
16, but those Christmas stockings needed to be filled. I hope yours was. 



Just prior to Christmas one of our representatives went to Japan in an attempt to achieve a better 
pricing system for new software for the Sega. This was not to be! Prices for ordinary cartridges 
have doubled, so in the meantime we will continue to market the stocks we have on hand and 
locally written software. 



The "Sega Is Supreme" survey sheets were returned to us in their droves. Although comments 
were many and varied, only three major areas of dissatisfaction were apparent: 

1. No retail outlets for Sega software 

This is unfortunately out of our hands. Although we are now the only major distributor of software 
for the Sega in Australasia we still buy direct from a wholesaler and therefore our hands are tied 
by contracts. 

2. No new software 

Refer to our comments above and also those in the Sept/Oct issue regarding the prices of importing 
new software from Japan. I would like to make mention here of some of the excellent locally written 
software which is in some cases superior to the software in Japan. 

3. Magazine delays 

This problem dates back a long time and all our efforts to overcome this problem seem to have 
been in vain. This should now be rectified with this double-issue bringing the magazine back into 
the right time-frame. 



It was heartening to read favourable comments on the improvement in service, and in the magazine, 
since we took over last July. Interesting to note that our Australian members have bigger problems 
obtaining software over there than we New Zealander's do. 



In this issue we have a review of a locally written game from one of our members in Hawera. 
Should anyone else be interested in doing something similar, please do not hesitate. After all. it's 
your contributions that keep the magazine going. 
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■'l A REVIEW OF 

J CAVERNS OF \ 
KARANOR f 

By Karl Woodhead 

yl t Well it looks like Michael Boyd has done it again. Not content 
-"•>*. with the success of "Burglar Bill", he has gone and helped the 
Sega software scene even more. 

P? This time Bill's mission is to save the universe by capping 

11 tanks in the caverns below the ancient Temples of 

;•.'.'- ; Karanor. Deadly mutants are escaping from these tanks 

Wlty't and threaten life as we know it. None have escaped from 

s* -' >. the caverns as yet, but if Bill doesn't act quickly they will. 

s i ".•;*•-;. You have only three lives to complete the game with. You 
| k- .* also have a limited amount of energy which goes steadily 
down as you progress through the game. There are places 



wmmm 



This is one of the best games I have played on the Sega. 

What 1 like about this game is you can walk back ^_ 

s and forth through most of the rooms with ease. k% *<| 

it. To go into some rooms you need certain £ 

objects to move past the exits. ',' 

The graphics in this game are amazing, with smooth % 
animation. It is 100% machine code. "Caverns of Karanor" 

has got some fiendlishly hard puzzles which makes a must < S 

vy' for your collection. f 

Ratings: Graphics 10 Value 9 j . 

Sound 7 Playability 9 // 

How the ratings are graded: 

GRAPHICS: Is the game graphically great — or do the v v ; ;., 
graphics grate? This mark puts you in the picture and lets you 
know if things are sprite and beautiful. V 

SOUND: Is the sound loud and proud, or does it sound like you've 

got your head in a bucket of mud? '< 

VALUE: Should you beg, borrow — but never steal — to get the cash 
for this game, or should you wait until it turns up in the bargain 
basement after a week? 

X PLAYABILITY: Will you have to be dragged ~ - 

^^-^-_^ screaming from the joystick after t* ?^v 

- . 24 hours — and still be anxious — - 

for more, or will you finish it in a few -^ 1 =^L . \^. , 
minutes? 




'I 

_. j* \ 



Technical Data about LSV 



By Michael Hadrup 



A number of ROM routines and system variables (RAM routines) are used by 
LSV to extend the Basic interpreter. These include evaluation, execution and 
some multi purpose routines. They are listed below with Disk Basic and Cartridge 
addresses, and a short description of what they do. 



ROM Routines 

Disk Basic Description 

&H4B17 This routine prints a message stored at an address 
in the HL register pair ending in a null CHR$(0), 
on the current display. 
&H7BB6 This routine prints a character in the A register 

on the current display. 
&H1AA5 This routine prints an error message defined by a 

number in the A register on the current display. 
&H3BD This is an entry point in the Basic start up that 
prints bytes free, resets the system and enters 
the Editor. 
&H7C2 BREAK routine - This routine is used when break is 
pressed during program execution or listing etc. 
It stores the state of the system (for a CONT) and 
resets the display to SCREEN 1,1, prints BREAK or 
BREAK IN line no and returns to the Editor. 
&H2192 Jump BREAK - This routine is used to jump to the 

BREAK routine using the BREAK vector. 
&H748 ERROR routine - This routine is used when an error 
occurs during program execution. It resets the 
display to SCREEN 1,1, prints the error 
returns to the Editor. 
&H7D53 Jump ERROR - This routine is used to jump to 

ERROR routine using the ERROR vector. 
&H623C- NEW routine - This is part of the NEW command. 

resets all the Basic pointers. 
&H5E0 CONT routine - This routine is part 
command. It resets the system to the 
in after the last break, (if it 
continues program execution. 
&H5D3 RUN program - This routine is part 

command. It clears variables and stacks then RUN ' s 
the program. 
&H58F RUN program - This differs from the previous 
routine as it RUN's the program at the line no. in 
the HL register. 
&H4659 GOTO line - This routine does not clear the 
variables or stacks, but GOTO ' s the line no in the 
HL register. 
&H716 This routine is the return point during program 
execution, after the completion of a Basic command 
routine. It determines if there are more commands 
to execute . 
&H843E This routine skips spaces using DE as a pointer, 

(in a Basic program). 
&H843D This routine moves DE past one character then 

skips spaces, (in a Basic program). 
&H83F2 This routine evaluates a line no using DE as a 
pointer (in a Basic program), into the HL register 
&H4AFE This routine evaluates a memory address using DE 
as a pointer (in a Basic program), into the HL 
register . 
&H6838 This routine evaluates a string expression using 
DE as a pointer (in a Basic program), into the 
character string operation stack. 
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Cartridge Basic 
&H4E52 

&H2B52 
&H73B7 
&H6A55 

&H6DE6 



&H6D81 



&H3D26 
&H6C43 

&H6C37 
&H6BF1 
&H6788 
&H6D4F 

&H2310 
&H230F 
&H22C4 
SH4E39 

&H2C76 



&H74EB This routine copies a string from the character &H2489 

string operations stack to a string register 

defined by the A register (A must hold 1 or 2). 
&H83E1 This is a routine for checking a range of values &H22B3 

in the HL register against the A register. The 

carry flag is reset if H >= A <= L. 
&H7061 This routine jumps to the (A-l) address in a table &H339B 

following the CALL. This is used throughout Basic 

to execute command routines. 
&H152C This routine is used to pad a filename with spaces &H7B13 

which is stored in string register 1. It pads the 

name or truncates it to 16 characters. 
&H566A This is the key scanning routine. Any key pressed &H436D 

except BREAK and RESET, is returned as its ASCII 

value. A null CHR$(0) denotes no key pressed. 
&H51B This is the BOOT routine in Disk Basic or reset &H0 

for Cartridge Basic. 
&H383E This routine is only used in Disk Basic. It turns 

off the disk drive. 



&HAD5B 

&H9ED5 

&HAB16 
&HAB19 
&HABE1 
&H9A8F 
&H9A90 
&HAECD 



&H9954 
&H9956 
&H9958 
&H995A 
&H995C 
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RAM Routines 



BREAK vector - This can be changed to vector the &H95A4 

BREAK key. 

ERROR vector - This can be changed to vector any &H86E8 

ERROR'S. 

This holds the current display mode. &H9336 

This holds the text screen colour. &H9339 

This holds the graphics screen back drop colour. &H9410 

This holds the length of string register 1. &H82A2 

This is the start of string register 1. &H82A3 

This holds the character under the cursor (during &H9714 

the flash) . When poked to a null this supresses 

the extra character printed when break is pressed. 

Start of Basic program. &H8160 

Start of Basic array storage area. &H8162 

Start of Basic variables storage area. &H8164 

End of Basic storage area + 1. &H8166 

Limit for Basic storage area + 1. &H8168 



The following errors are produced by LSV. . . 



Out of memory error - 

Tape read error (Disk Basic) - 
Memory writing error (Cartridge) 



Command parameter error - 



If there is not enough memory available when 

a program is loaded. 

when a loading error occurs. 

when a loading error occurs ; This was used 

because Tape read error does not exist as an 

error but as a message produced by the 

loading routines. 

If the parameters following an extended 

command do not comply with the correct syntax 



If an error occurs, the error number is stored at &HFB66. If errors are 
vectored, a Basic program can determine what error occured by using PEEK(&HFB66) 
If you wish to print the error, a small routine has been incorporated at &HFB9B 
for this purpose. The error is printed on the current display by CALL &HFB9B. 

If you wish to disable the "Start tape and press any key" message then use 
POKE &HFB3C,0. 

Clever use of the SCREEN command will supress the printing of the filename 
during loading. An alternative on the graphics screen is to use CURSOR 0,185. 



More information will be provided in the next magazine, on how to add your 
own extended BASIC commands. The information provided should be enough for some 
of you budding machine code programmers to understand how LSV works. 



Loading ZX Spectrum Pictures 

(C) 1986 MJH SOFTWARE 

This program requires the Load/save/ver lfy Basic extension In the previous 
magazine. If you haven't typed them in yet, then get to it! If you have typed 
them in, then Load and initialise them. 

This program will load and convert any normally saved SPECTRUM picture. If 
you have a friend with a SPECTRUM then borrow some of his games tapes. 
Type in the listing and save it using 

*SAVE "ZX Convert. Dta" or SAVE "Convert . Dta" 

RUN the program. If you wish to save the code then type 

*SAVEC "ZX Convert .Cde" , SHF800, &HF882 or SAVEM "Convert . Cde" , &hF800, &HF882 

Locate a SPECTRUM picture, and position the tape before the main block. 
(Just after the header, if the picture has one). Now type 

CALL &AF810 and press PLAY on the TAPE 

You should see and hear the loading of the picture. Now type 

SCREEN2,2 :CALL &HF810 and press Shift-Break 

The picture you loaded should now have appeared on the graphics screen. 
This picture can now be saved using 

♦SAVES "Filename" to save the SEGA version or 

SAVEM "Filename", &HC000, &HDAFF to save the SPECTRUM version. 

With the use of Printer Shades in the previous magazine it is possible to 
dump these pictures to a p.. inter . 



Listing 1 



1 REM ZX SPECTRUM Picture Convert 

2 REM 

3 REM By Michael Hadrup 

4 REM 

5 REM (C) 1986 MJH Software 

6 REM 

7 REM 

10 RESTORE 

20 X=&HF800 

30 FORN = 1000TOH60STEP10 

40 C = 

10 FORM=0TO7 

60 READAS 

70 POKEX,VAL("&H"+A$) 

80 C=C+PEEK(X) 

90 X=X+1 

100 NEXT 

110 READA$ 

120 IFCOVAL( "&H"+A$ ) THENBEEP2 : PRINT"Er r or in line ";N:STOP 

130 NEXT 

140 BEEP 

150 BEEP 

160 PRINT"No errors!!" 

170 END 

1000 DATA 1,4,6,D,2,7,A,E,39 

1010 DATA 1,5,8,D,3,7,B,F, 3F 

1020 DATA F3,AF,D3,BF,3E,40,D3,BF,544 

8 



1030 


DATA 


1040 


DATA 


1050 


DATA 


1060 


DATA 


1070 


DATA 


1080 


DATA 


1090 


DATA 


1100 


DATA 


1110 


DATA 


1120 


DATA 


1130 


DATA 


1140 


DATA 


1150 


DATA 


1160 


DATA 



21,0,00,6, 3, 7 

BE,7C,E6,7,20 

8,67,2C,20,F0 

67,10,EA,AF,D 

D3,BF,EB,1,0, 

E6,BF,6F,CD,6 

7,7,67,7D,F,F 

61,F8,B4,2E,8 

20,FB,B,78,B1 

C9,E6,7,CB,7D 

8,D9,6F,26,F8 

FD, 21,0, CO, 11 

FF,3F,CD,0,F9 

C3,A1,FB,0,0, 



E,24,D3,25F 

,F7,7C,D6,490 

,7C,C6,8,2F5 

3,BF,3E,60,440 

3,1A,13,2AE 

1,F8,7,7,448 

,F,CD,1EC 

,D3,BE,2D,401 

,20,DF,FB,449 

,28,2,C6,3EE 

,7E,D9,C9,48E 

,0,1B,3E,248 

,D8,3E,41,45B 

0,0,0,25F 



The machine code progra 



m 



F810 


F3 


DI 


F811 


AF 


XOR A 


F812 


D3BF 


OUT (BF),A 


F814 


3E40 


LD A, 40 


F816 


D3BF 


OUT (BF),A 


F818 


2100C0 


LD HL,C000 


F81B 


0603 


LD B,03 


F81D 


7E 


LD A, (HL) 


F81E 


24 


INC H 


F81F 


D3BE 


OUT (BE), A 


F821 


7C 


LD A, H 


F822 


E607 


AND 07 


F824 


20F7 


JR NZ,F81D 


F826 


7C 


LD A,H 


F827 


D608 


SUB 08 


F829 


67 


LD H,A 


F82A 


2C 


INC L 


F82B 


20F0 


JR NZ,F81D 


F82D 


7C 


LD A,H 


F82E 


C608 


ADD A, 08 


F830 


67 


LD H,A 


F831 


10EA 


DJNZ F81D 


F833 


AF 


XOR A 


F834 


D3BF 


OUT (BF),A 


F836 


3E60 


LD A, 60 


F838 


D3BF 


OUT (BF),A 


F83A 


EB 


EX DE,HL 


F83B 


010003 


LD BC,0300 



F83E 


1A 


LD A, (DE) 


F83F 


13 


INC DE 


F840 


E6BF 


AND BF 


F842 


6F 


LD L,A 


F843 


CD61F8 


CALL F861 


F846 


07 


RLCA 


F847 


07 


RLCA 


F848 


07 


RLCA 


F849 


07 


RLCA 


F84A 


67 


LD H,A 


F84B 


7D 


LD A,L 


F84C 


OF 


RRCA 


F84D 


OF 


RRCA 


F84E 


OF 


RRCA 


F84F 


CD61F8 


CALL F861 


F852 


B4 


OR H 


F853 


2E08 


LD L,08 


F855 


D3BE 


OUT (BE), A 


F857 


2D 


DEC L 


F858 


20FB 


JR NZ,F855 


F85A 


0B 


DEC BC 


F85B 


78 


LD A,B 


F85C 


Bl 


OR C 


F85D 


20DF 


JR NZ,F83E 


F85F 


FB 


EI 


F860 


C9 


RET 


F861 


E607 


AND 07 


F863 


CB7D 


BIT 7,L 


F865 


2802 


JR Z,F869 


F867 


C608 


ADD A, 08 


F869 


D9 


EXX 


F86A 


6F 


LD L,A 


F86B 


26F8 


LD H,F8 


F86D 


7E 


LD A, (HL) 


F86E 


D9 


EXX 


F86F 


C9 


RET 


F870 


FD2100C0 


LD IY,C000 


F874 


11001B 


LD DE,lB0O 


F877 


3EFF 


LD A,FF 


F879 


3F 


CCF 


F87A 


CD00F9 


CALL F900 


F87D 


D8 


RET C 


F87E 


3E41 


LD A, 41 


F880 


C3A1FB 


JP FBA1 


F883 


00 


NOP 


F884 


00 


NOP 



Fixing The Comset Command (Disk Basic) 



By Michael Hadrup 



This article should provide an answer for K .Nightingale ' s (of whakatane) 
question about the comset command (Disk Basic). It has only four mistakes in 
this command! To fix the comset command run this program before using COMSET. 



10 00 READAS: A^VAL( "&h"+A$) :POKEA,PEEK ( A ) -1 3 : GOTOl 00 
10010 DATA1F74,1F78,1F97,1F9A 




Part 3 

The SEGA Computer 

THE SOUND 
GENERATOR 



BY Brian Brown 



The sound chip is a SN76489AN device. It requires 32 
clock cycles for the transfer of data from the CPU to be 
latched internally. This involves the use of the Ready line 
being tied to the WAIT input of the Z80 CPU 
This means that when loading the sound generator chip 
with data the CPU is actually slowed down. The SG 
contains three programmable tone generators and a 
noise source, the output of each controlled by a 
programmable attenuator. The SG chip is port mapped 
at &H7F. The frequency and register is selected by a two- 
byte combination, while only one byte is necessary for 
attenuation control. 



FREQUENCY SELECTION 

To determine how to program the SG chip the following 
information is necessary; 

Clock speed - 3.84Mhz 

N = Clock speed / 32 ' Required 
frequency) 
where N is converted to a 10 digit binary number 
Thus, to generate a tone of 1000Hz: 

N = 3840000 / 32 * 1000 

= 120 (N is always rounded to an 
integer) 
Now convert N to binary = OOOllllOOt v most significant bit 
first) . 

REGISTER SELECTION 

To determine which sound register Table XX 10 is used. 

WRITING THE FREQUENCY AND REGISTER 
TO THE SGC 

In the above example of a 1000Hz tone. N was derived into 
a 10 digit binary number of 0001111000. These 10 bits, along 
with the register code from Table XX 10 are used to form the 
two bytes required to program the desired frequency and 
sound channel. Thus the format of the two bytes is; 

Byte One: 1 + Register Code + last 4 bits of N 

Byte Two: 00 + first 6 bits of N 
Thus our example of a 1000Hz tone using register one; 

Byte One = 10001000 (or &H88) 

Byte Two + 00000111 (or &H07) 
1 he tone is produced by outputting the two values to port 
&H7F, thus: 

OUT &H7F.&H88 : OUT &H7R&H07 
will produce the desired result. 

ATTENUATION CONTROL 

Control of the programmable attenyators can be achieved by 
a single byte update. The format of this byte is as follows; 

Single Byte - 1 + attenuation register + 
attenuation value 

The attenuation register is three bits and is shown in Table 
XXI 1. The attenuation value is shown in Table XX12 and 
comprises four bits. Thus to attenuate tone register one to 
a value of lOdb using BASIC. 

Single Byte = 100010101 (&H95) so OUT &H7F.&H95 



THE NOISE GENERATOR 

Updating the noise register and attenuator requires a single 
byte transfer. This byte is 11100 + FB + SR. 
FEEDBACK CONTROL (FB): If FB=1 then noise is 
"periodic" else if FB = 1 then the noise is set to "white"' noise. 

SHIFT RATE (SR): Refer to Table XX13 for the values of the 
two SR bits. 

ATTENUATION CONTROL OF NOISE REGISTER: this is 
the same as described earlier, only the register code is 111. 
SAMPLE EXPLOSION. To generate an explosion, use "white 
noise" then slowly increase the attenuation from Obd to OFF 
Thus the frequency control byte is; 

11100 + 1 + 00 = 11100100 (or &HE4) 
The attenuation bytes range from Odb to OFF thus the range 
is. 

mi + oooo to mi = nil (or &hfo to &hffj 

thus the program in BASIC is; 

10 OUT &H7F.&HE4 : FOR X = &HFO TO &HFF : OUT 
&H7F.X 

20 FOR DE = 1 TO 20 : NEXT DE 

30 NEXT X 
CREATING MUSIC: Table XX14 is a BASIC program which 
allows the user to input a series of notes (up to 255) and then 
play them back. The program calculates the various bytes 
necessary to program the south generator chip. 



TABLE XX10 REGISTER CODES 



Register 


Binary Code 


Register 1 


000 


Register 2 


010 


Register 3 


100 


Register 4 


110 



TABLE XX 11 ATTENUATOR CODES 



Attenuator 


Binary Code 




Tone reg 1 


001 




Tone reg 2 


011 




Tone reg 3 


101 




Noise reg 


111 
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TABLE XX12 ATTENUATION TABLE 



Attenuation 


Binary 


Attenuation 


Binary 


Value 


Code 


Value 


Code 


Odb 


0000 


2db 


0001 


4db 


0010 


6db 


0011 


8db 


0100 


lOdb 


0101 


12db 


0110 


14db 


0111 


16db 


1000 


18db 


1001 


20db 


1010 


22db 


1011 


24db 


1100 


26db 


1101 


28db 


1110 


OFF 


1111 



TABLE XX 13 SHIFT RATE BITS 



SRO 


SRI 


Desired Frequency of 
Noise 








Clock/512 





1 


Clock/ 1024 


1 





Clock/2048 


1 


1 


Frequency is that specified 
by Register 3 



TABLE XX 14 MUSIC PROGRAM & SOUND EDITOR 



5 
10 

20 
30 
40 

50 
60 
70 

80 
90 
100 
110 
120 
130 
140 
150 
200 
210 
220 



230 
240 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 



PATTERNC&HD0,"7884B4A4A4B48478" 

PN = &H7F:DIMX1(255).X2(255).X3)255).W( 

255).TZ(255) 

FLAG = 

SCREEN 1.1:CLS 

PRINT "Music Editor. By B.Brown. ";CHR$(& 

HD0);" 84" 

PRINT " " 

PRINT:PRINT"Options" 

PRINT "1 - Play memory area" 

PRINT "2 - Create music" 

PRINT " + - Edit music array" 

PRINT:PRINT "Select desired option:" 

AA$ = INKEY$:IFAA$ = " "THEN GOTO 110 

IF AA$= "1" THEN GOTO 820 

IF AA$ = "2" THEN GOTO 900 

IF AA$= "3" THEN GOTO 1000 

GOTO 110 

REM INPUT ROUTINES 

Bl$= "10000000" 

PRINT" Freq (118-3500) of tone "",ZB;" ";:tN 

PUT FT:IF FT < 1 18 OR FT > 3500 THEN GOT 

O 220 

BT = 3840000/ (32 *FT) 

DB = INT(BT + .5) :GOSUB 430 

SB$ = SB$ + MID$(SA$,LEN(SA$) + 1-S, 1) 

NEXT S 

RETURN 

REM STRING TO DECIMAL 

REM INPUT = GS$. OUTPUT = OB 

OB = 



IFMID$(GS$.1,1) = "1' 

IFMID$(GS1.2.1) = "r 

IFMID$(GS$.3,1) = "1 

IFMID$(GS1.4.1) = "1' 

IFMID$(GS$.5,1) = "1' 

IFMID$(GS$,6,1) = "L 

IFMID$(GS$,7.1) = "1 

IFMID$(GS$.8.1) = "L 

RETURN 

REM RESET SOUND CHANNELS 

OUTPN.159:OUTPN.191:OUTPN,223 



THEN OB = OB+12B 
THEN BO = OB + 64 
THEN OB = OB + 32 
THEN OB = OB+16 
THEN OB = OB + 8 
THEN OB = OB + 4 
THEN OB = OB + 2 
THEN OB=OB+l 



810 OUTPN.255:RETURN 
820 REM PLAY MUSIC 

830 CLS:PRINT"Playing music. "-.PRINT" " 

840 IF FLAG = THEN PRINT: PRINT" Music array i 

s empty. ":GOSUB 1140:GOTO-30 
850 FOR ZB = 1 TO 255 

860 N 1 = Xl(ZB) :N2 = X2(ZB) :N3 = X3(ZB) :ZC = 
W(ZB) :IF N 1 = AND N2 = and N3 = THEN 
ZB = 255: GOTO 880 
870 GOSUB 390:SOUND 
880 NEXT ZB 
890 GOTO 30 
900 REM Create music 

910 CLS:PRINT "Create Music. ":PRINT" 

-:PRINT:GOSUB 1140 
920 INPUT" How many notes to play.";ZA 
930 IF ZA > 255 THEN GOTO 920 
940 FOR ZB = 1 TO ZA 
950 GOSUB 700 
960 X1(ZB) = N1:X2(ZB)=N2:X3(ZB)=N3;W(ZB) 

= ZC:TZ(ZB) = FT 
970 NEXT:Z1(ZB) = 0:X2(ZB)=0:X3(ZB) = 
980 GOSUM 1140:FLAG=1:GOTO 30 
990 STOP 
1000 REM Edit music 

1010 CLS:PRINT "Edit Music." :PRINT"- ":P 

RINT:IF FLAG = THEN PRINT "Buffer is empt 
y.":GOSUB 1140:GOTO 30 
1020 PRINT "Freq bytes can only be changed, not" 
1030 PRINT "inserted. Use the ";CHR$(&H8E);" key 
to change a ":PRINT "tone, else ";CHR$(&H8F 
);" key to move to the next" :PRINT "tone, and 
CR to abort." 
1040 F0RZB=1T0 255 
1050 PRINT "Tone ";ZB;" is ";TZ(ZB);"Hz" 
1055 PRINT "Wait period is";W(ZB) 
1060 TR$="":TR$INKEY$ 
1090 IF TR$chr$(30) THEN GOSUB 11 50: GOTO 10 

50 
1 100 IF TR$ - CHR$(29) THEN GOSUB 1 140:NEX 

T 
1110 IFTR$ = CHR (13) THEN 1130 
1120 GOTO 1060 
1130 GOSUB 1140:GOTO 30 
1 140 FOR DE = 1 TO 200:NEXTDE:RETURN 
1150 GOSUB 1140:GOSUB200:X1(ZB)=N1:X2(Z 
B) = N2:X3(ZB) = N3:W(ZB) = ZC:TZ(ZB) = FT: 
RETURN 



Part 4 

The SEGA Computer 

CASSETTE 

ROUTINES BY Brian Brown 



MAJOR ENTRY POINTS 

The major entry points for the cassette are; 

VERIFY &H779F 

LOAD &H78D5 

SAVE 7H7A40 
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PROGRAM FORMAT 

The programs are saved in two stages. The first part is the 
Header section. This comprises sync bytes and the 16 
character filename. The main program is saved next, this 
includes address's and the actual program, i.e., line numbers, 
etc. 

VERIFY/LOAD 

These routines are prefixed with a small routine which 
searches for the filename of the program. The filenames may 
be up to 16 characters long, and for the loading or verifying. 
the filename is stored at location &H82A3 onwards. The 
filename from header section of the tape is loaded, then 
compared with that stored in memory If no filename was 
specified, the program jumps to the load main program 
section. If a filename was specified, and found to match with 
that read from tape, the program is loaded. If the program 
does not match, a jump is made to the skip portion of the 
program. 

FILENAME STORAGE 

Location &H82A2 is used as a Filename Found flag, and if 
zero then the next program found on the cassette is loaded, 
else a Filename Found flag, if zero then the program is loaded, 
otherwise skip is made. When saving a program, the filename 
is taken from the keyboard input buffer, corresponding to 
&H83A3 (up to 16 bytes). If the filename is less than 16 bytes, 
then the filename is padded with blanks. 

ADDITIONAL INFO 

Table XX 15 lists the major entry points of all the cassette 
routines, and their function. Also listed me the subroutines 
which are called also. Table XX 16 and XX 17 are BASIC 
programs which load the Header and Program Bytes 
respectively to the video screen. 

AUTOLOAD AND EXECUTE BASIC PROGRAMS 

This may be achieved by poking a machine language routine 
into reserved memory. If the computer is then reset, the 
program will not be erased. The machine code routine calls 
the main entry point of LOAD, then calls (H6C37 which is 
the RUN entry point for BASIC programs. However, location 
&H82A2 which holds the Filename Found flag must be zeroed 
to indicate that the next program found must be loaded. Table 
XX18 illustrates how this may be achieved. 

MERGING BASIC PROGRAMS 

A program to merge two BASIC programs must use a 
machine code routine to save the RAM pointers in memory, 
call the Load routine in ROM. reset the pointers and call the 
load routine a second time. The program listed below is a 
combination of most of that which has already been covered. 
It must be noted however, that the second BASIC program's 
line numbers must be greater than the first or part of the 
program will be deleted. 



10 SCREEN 1.1: CLS : PRINT "BASIC MERGER" 

20 PRINT: PRINT "Load Mcode." 

30 POKE &H8161.0 : FOR X = &HFFOO TO &HFF2 

F 

35 REM Reserve memory space at top of memory 

40 READ A: POKE X.A: NEXT 

70 PRINT "Press PLAY to load first program." 



80 


POKE &H82A2.0: CALL &HFFOO 


90 


END 


100 


DATA &HCD.&HEF.&H78 


110 


DATA &H2A.&H62.&H81.&H2B.&H22.&H60.& 




H81 


120 


DATA&H3E.&H00.&H32.&HA2.&H82.&H21.& 




H1F 


130 


DATA&HFF.&HCD.&H6F.&H4A.&HCD.&HEF. 




&H78 


140 


DATA&H21.&HOQ&H98.&H22.&H60.&H81.& 




HC9 


150 


DATA 76,111.97,100.32.50.110.100,32.112 


160 


DATA 114.111. 103. 114.97. 109.&HOD 



In machine code the program 

FFOO CALL 78EF 
LD HL (8162) 
DEC HL 
LD (8160).HL 

LD A. 00 
LD (82A2).A 
LD HLFF1F 
CALL 4A6F 
CALL 78EF 
LD HL.9800 
LD (8160). HL 
RET 
FF1F "load 2nd program' 



is; 



(LOAD progl) 
(BASIC end pointer) 

(Store it into BASIC 
start) 

(Filename found flag) 

(Print text message) 
(Load prog2) 

(Set pointer to progl) 

(Text message) 



TABLE XX15 CASSETTE ROUTINES IN ROM 



ROM Address (Hex) 


Function 


3A03 




A Delay routine using the BC 
register 


3A0F 




Write sync bytes to tape 


3A12 




Write byte in A to tape 


779F 




Verifying Start 


77F7 




Skip 


7822 




Found 


785D 




Verifying End 


788F 




Verifying Error 


78DF 




Loading Start 


78FD to 


790E 


Compare filenames 


792B 




Skip 


7956 




Found 


7982 




Load Program 


799AA 




Loading End 


79E9 




Tape Read Error 


7A40 




Saving Start 


7A59 to 


7A85 


Save Filename 


7A94 




Save number of bytes 


7AB9 




Save Sync Bytes 


7AD2 




Save Program 


7AED 




Saving End 


7B07 




Write HL to tape 


7B13 




Pad Filename with Blanks 
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TABLE XX 16 LOAD HEADER TO VIDEO SCREEN 



10 SCREEN 1.1 : CLS : PRINT "Press Play to Load pr 

ogram." : B = 
20 FOR X = &H78EF TO &H7923 
30 POKE&HABEF + B.PEEK(X) :B - B + 1 : NEXT 

X 
40 POKE &HA90B.&HD3 
50 POKE &HA90C&HBE 
60 POKE &HA924.&HC9 
70 CALL &HA8EF 
80 GOTO 70 



TABLE XX 17 LOAD PROGRAM BYTES TO VIDEO 



10 


SCREEN 1,1 : CLS : PRINT "Press Play to Load P 




rogram." 


20 


FOR X = &HA000 TO &HA022 


30 


READ A : POKE X.A : NEXT 


40 


CALL &HA000 


50 


STOP 


60 


DATA &HF3,&HCD,&H00,&H3A,&HCD.&H06 


70 


DATA &H3A.&HFE.&H17.&H20.&HF5.&H2A 


80 


DATA &H60.&H81 .&H06,&H00.&HCD,&H0A 


90 


DATA &H7A,&HD3.&HBE,&H3E,&H3F,&HC4 


100 


DATA &H48.&H24.&H23.&H1B.&H7A.&HB3 


110 


DATA &H30.&HF0.&HC3.&HA9.&H79 



TABLE XX 18 AUTO LOAD AND RUN BASIC PROGRAMS 



10 SCREEN 1.1 : CLS : PRINT " Press Play to Load 

and Run Program." 

20 DATA &HCD.&HD5.&H78,&HCD.&H37,&H6C 

30 POKE &H8168.0 

40 FOR X = &HF000 TO &HF005 

50 READ A : POKE X.A : NEXT 

60 POKE &H82A2.0 

70 CALL &HF000 



THE KEYBOARD 

The keyboard is arranged in a matrix layout of eight columns 
by eleven rows. Only one column may be activated at one 
time, and the columns are controlled by a decoder chip. The 
keyboard rows and connected to two different ports, only one 
can be read by the CPU at any time. An intersection (which 
occurs due to a keypress) between the column and the row 
of the matrix is detected by the CPU and is then interpreted 
to find out the actual key being pressed. Refer to Table XX20 
for the key matrix layout. 



THE 8255 PERIPHAL INTERFACE CHIP 

This is a programmable chip, and allows the connection of 
the keyboard, cassette, printer and joysticks to the CPU. The 
PIA has three ports — A. B and C — and a control register. 
The information written to the control register will determine 
the status of each port (i.e.. inputs or outputs). When the ports 
are used as outputs, the written data is latched or held 
internally until the next update. In the SEGA the following 
is to be noted; 

Port A is input, mapped at &HDC. connected to X 

columns of key matrix. 
Port B is input, mapped at &HDD. connected to X 

columns of key matrix. 
Port C is output, mapped at &HDE. connected to Y 

columns of key matrix. 
Control register is mapped at &HDF. 

The data or words written to the control register to set up the 
specific ports as input or output are: 

Bits 7 6 5 4 3 2 10 

•l'o-o-i'o-o-i-o- 

Bit 4 = Controls A 

Bit 3 = Controls C upper 

Bit 1 = Controls B 

Bit = Controls C lower 

thus the byte to initialise the PIA is &H92 or 146 decimal. 



Part 5 

The SEGA Computer 

THE KEYBOARD AND 

JOYSTICKS BY Brian Brown 



ADDRESSING THE KEY-MATRIX 

The lower three bits (0,1.2) of Port C is used to address the 
Y columns of the key matrix. The output of Port C is applied 
to a 74LS145 BCD decoder, which provides a one out of eight 
output to activate only one Y column at a time The status 
of the three lower Port C bits will determine which output of 
the decoding chip is activated. Table XX18 lists the 
combinations of these three bits and the resultant activated 
output of the decoder. Table XX20 lists the keyboard matrix. 



The keyboard, joysticks, cassette and printer are all 
controlled by an interface chip (8255). This interface 
chip allows the connection of the devices to the CPU, 
and the transfer of information between them. The 
interface is programmed by the CPU, i.e., it is 
instructed on what to look for and what it must do. 
This process is normally transparent to the user, i.e., 
the user is unaware of the process's being executed. 



SCANNING THE KEYBOARD USING MACHINE CODE 

Table XX21 lists a BASIC program which pokes a machine 
code subroutine into memory. This routine initialises the PIA 
with &H92, then outputs a specified byte to Port C, thus 
selecting the desired Y column of the key matrix. This byte 
is specified in line &% of the program, and refer to Table XX19 
for the value of the byte and it's appropriate column. It then 
loads the value of Ports A and B. storing them in &HA000 
and &HA001 respectively, before returning to BASIC. By 
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checking the returned code from Port A or B. it is thus possible 
to search for a specified key press. Having assembled the 
routine into line 5 of the program, all data statements etc. can 
be delted from the final program. Table XX26 lists a program 
which scans the keyboard, and moves sprites etc.. all using 
machine code. 

MISCELLANEOUS CONNECTIONS 

The remaining tables list the various connections of the SEGA 
and their appropriate function. 

THE PRINTER PLOTTER 

This relies on a single chip microprocessor, a 6805 up. Being 
a factory programmed device, it must be replaced in total, 
i.e.. you haven't got access to the software controlling the 
6805. Also note that the same mechanism is used by the 
ATARI, and COMMODORE printer plotters, and the spares 
are also the same. i.e.. pens. etc. Some SHARP printers are 
also identical, so shop around for pens, paper, etc 

TABLE XX19 THE 74LS145 DECODER COMBINATIONS 



TABLE XX21 BASIC KEY-SCAN PROGRAM 



PC2 


PCI 


PCO 


V Column 


Hex Byte (outputted 











Y0 


00 to &HDE) 








1 


Yl 


01 





1 





Y2 


02 





1 


1 


Y3 


03 


1 








Y4 


04 


1 





1 


Y5 


05 


1 


1 





Y(> 


06 


1 


1 


1 


Y7 


07 



TABLE XX20 KEYBOARD MATRIX LAYOUT 



re? Ft i Fcttf 

OUTPUT' 



>2>2*>S PORTA 

FDETB 




NML- 



e£5£T 



5 REMAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAA 

7 REM Line 5 has about 100 As in it. 

10 SCREEN 1.1. CLS 

20 FOR X = &H9808 TO &H981F 

30 READ A:POKE X.A:NEXT X 

40 CALL &H9808 

50 PRINT" Port A = ";PEEK(&HA001)" Port B = ":P 
EEK(&HA001) 

60 GOTO 40 

65 DATA &HF3 

70 DATA &H3E.&H92.&HD3.&HDF 

75 DATA &H3E.&H00 

80 DATA &HD3.&HDE.&HDB.&HDC 

85 DATA &H32.&H00.&HA0.&HDB.&HDD 

90 DATA &H32.&H01.&HA0.&H3E.&H92 

95 DATA &HD3.&HDF.&HC9 

100 REM Y0 = 00.Y1 = 01,Y2 = 02.Y3 = 03 

110 REM Y4=04.Y5 = 05.Y6 = 06Y7 = 07 

120 REM Change the 2nd byte in line 75 

130 REM to scan a different row. 



TABLE XX22 JOYSTICK PIN CONNECTIONS 



Pin Number 


Function 


1 


Up 


2 


Down 


3 


Left 


4 


Right 


5 


No Connection 


6 


Left Fire 


7 


No Connection 


8 


Common 


9 


Right Fire 



TABLE XX23 PRINTER PIN CONNECTIONS 



Pin Number 


Function 


1 


Fault 


2 


Busy 


3 


Data 


4 


Reset 


5 


Feed 


6 


Gnd 


7 


No Connection 



TABLE XX24 PORT B & C CONNECTIONS 



PB0 


Key Matrix 


PCO 


Key Matrix 


PB1 


Key Matrix 


PCI 


Key Matrix 


PB2 


Key Matrix 


PC2 


Key Matrix 


PB3 


Key Matrix 


PC3 


Not Used 


PB4 


Not Used 


PC4 


Cassette Output 


PB5 


Fault (Printer) 


PC5 


Data (Printer) 


PB6 


Busy (Printer) 


PC6 


Reset (Printer) 


PB7 


Cassette Input 


PC7 


Feed (Printer) 
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cont on p55 




AIRCRAFT 



Another biggie from John Dowman. 

Difficult to beat the random firing 

of the enemy. Good graphics. 



100 REM AIRCRAFT 
110 REM By John Dowman 1986 
120 REM 

130 REM 

140 SCREEN 2,2:CLS:HS=0 

150 COLOR , 1 , (0,0)-(255, 191), 1 

160 FOR Y=0 TO 13 

170 LINE (0,Y*Y)-(255, Y*Y),4:NEXT Y 

180 FOR X=l TO 13 

190 LINE <X*10,0)-<0,X*X),4:NEXT X 

200 FOR X=14 TO 20 

210 LINE (X*10,0)-<X*X-185, 191 ),4:NEXT X 

220 LINE <210,0)-<254, 191), 4 

230 X=220 

240 FOR Y=20 TO 18 STEP -1 

250 LINE <X,0)-(255,Y*Y-300),4:X=X+10:NEXT Y 

260 BLINE (47,50)-( 19 1 , 60) , , BF: COLOR 1 5 : CURSOR50, 52 : PRINTCHR$ ( 16); 

esents ..." 

270 BLINE ( 100, 150)-(210, 163), , BF 

X = 0:Y = 0:C0L0R7: CURSOR 102, 1 55 : PRINTCHR$ ( 17); "AIRCRAFT" ; CHRS ( 16) 



"John Dowman Pr 



280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 



MAG 3 

PATTERN S#0, "0000000000000001" 
PATTERN S#l , "03070F0F0E000000" 
PATTERN S#2, " 000000 1E2E6CF8F0" 
PATTERN S#3, "E0C0800000000000" 
PATTERN S#4, "0000000000003F7F" 
PATTERN S#5, " 3E 1 C080000000000" 
PATTERN S#6, "0000000818188000" 
PATTERN S#7, "0000000000000000" 
PATTERN S#8, "0000000000000000" 
PATTERN S#9, " 0F0E0003030 10000" 
PATTERN S#10, "0000000000000020" 
PATTERN S#l l,"6OEOE0E0E0EOEO6O- 
PATTERN S#12,"0000000000007F7F' 
PATTERN S#13, " 3F 1F0F0F070 1 0000' 
PATTERN S#14,"0000001E3E7CF8F0' 
PATTERN S#15, "E0E0E0E0E0E0E060' 
P=190:SOUND 4,2, 15 
FOR Q=0 TO 255 STEP 2 
SPRITE 1,<Q,P),0,7 

0, <Q,P),8,5 

2,<Q,P),4,4 

3,(Q,P+20), 12, 1 :P=P-1.5 



SPRITE 
SPRITE 
SPRITE 
NEXT Q 
FOR S=3500T0500 STEP - 1 50:SOUND 1 ,S, 10:SOUND2 , 500+S, 1 3:SOUND3, 1000+S, 15 : NEXT 



S:S0UND0:S0UND3, 1 10,0 

5 40 Q=0:P=0:S=0: BLINE (72, 1 02 ) - ( 220, 1 1 7 ) , , BF 

550 C0L0R5:CURS0R75, 1 06 : PRI NT"Press any key to begin.." 

560 IF INKEY$="" THEN 560 

570 BEEP 

580 REM IF YOU HAVE BASIC Level III A THEN YOU CAN DELETE 4530- 
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590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 



TO 5:NEXTI :SOUND0:NEXT Z 



HS=0:SC=0:L 
PATTERNS*0, 
PATTERNS#1 , 
PATTERNS*2, 
PATTERNS#3. 
PATTERNS#4, 



830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

11 10 

1120 

i 130 

1 140 

1150 

1 160 

1170 

1 180 

1 190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 



REM AND PUT FOR LINE NUMBER 4530: -4350 RETURN 

CLS:CURSOR70, 100:PRINT "INSTRUCTIONS {Y/N}" 

IF INKEY$="" THEN 610 

IF INKEY$="Y" THEN GOSUB 4680:G0T0 650 

IF INKEY$="N" THEN 650 

GOTO 6 10 

CLS 

SCREEN 1, 1 :C0L0R7, 1 : CLS 

PATTERNC*48, "708898A8C88870" 

Z$="INPUT YOUR INITIALS." 

PRINT SPC(7) ; 

FOR Z=l TO LEN(Z$) 

PRINT MID$(Z$,Z, 1); 

SOUND1,RND<1)*500+600, 10: FORI =1 

CURS0R0,5: INPUT N$ 

PRINT:PRINTSPC(3); "HELLO ";N$ 

FOR 1=1 TO 500: NEXT I 

N$=LEFT$(N$,3) 

=20:MAG 1 
01010163B6D5BEDF" 
B7D6BDDEB7630100" 
808080C66DAB7DFB" 
ED6BBD7BEDC68000" 
1E0B060203C2E27F" 
775EEE4703020201 " 
78D06040C04347FE" 
EE7A77E2C0404080" 
071306010085771D" 
7EE8CF2102000700" 
"940080600036CB68" 
"4EA1A6A960C04020" 
"0412050000816004" 
"4AC80B2600080701" 
"8400807000268B00" 
"88219401F0A04020" 
"0010020000814004" 
"480001A0008801A4" 
"8 400000002 208000" 
"0821000500800520" 
"80COF8FOF8FF7FFE" 
"06FF7FF8F0F8C080" 
PATTERNS#22, " 000000000000F05F 
PATTERNS#23,"5FF0" 
PATTERNS#24,"01061C2 3C080C220" 
PATTERNS#25," 190601" 
PATTERNS#26, "E01C03000000AA" 
PATTERNS#27, "5403FC" 
PATTERNS#28, "030303FF000000AA" 
PATTERNS#29, "OOOOFF" 
PATTERNS#30, "C03C03FF0001 OOAA" 
"OOOOFF" 

"1F3164CE04E4A0E0" 
PATTERNS#33, "OOOOFF" 
PATTERNS#34, "0000808080808080" 
"8080" 

"0E070381C0E0FF87" 
"87FFE0C08103070E" 
PATTERNS#38, "00F080C0E0F0FEF9" 
PATTERNS#39, "F9FEF0E0C080F0" 
PATTERNS#40, " OOOFO 1 03070F7F9F" 
PATTERNS#41,"9F7F0F0703010F" 
PATTERNS#42, "70E0C08 1 0307FFE1 " 
PATTERNS#43, "E1FF07038 1COE070" 
PATTERNS#44, "00000384FC57AAFC" 
PATTERNS#45, "0806" 
PATTERNS#46, "0000008080" 
PATTERNS#48, "FF01 07 1F2 152442A" 
PATTERNS#49, " 1 10C07443F" 
PATTERNS#50, "FF80E0F827222 1 27 " 
PATTERNS#51 , " 24A8F0 1 2FC" 
SCREEN 2, 2: COLOR, 1 , ,5: CLS 
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PATTERNS#5, 
PATTERNS#6, 
PATTERNS#7, 
PATTERNS#8, 
PATTERNS#9, 
PATTERNS* 10 
PATTERNS* 1 1 
PATTERNS* 12 
PATTERNS* 13 
PATTERNS* 14 
PATTERNS* 15 
PATTERNS* 16 
PATTERNS* 17 
PATTERNS* 18 
PATTERNS* 19 
PATTERNS#20 
PATTERNS#21 



PATTERNS#31 
PATTERNS*32, 



PATTERNS#35, 
PATTERNS#36, 
PATTERNS#37, 



1300 COLOR,8,(0,0)-(50, 191) 

1310 COLOR, 11, (20,20)-(45,30) 

1320 COLOR, 1 1 ,<20,60)-(45,70) 

1330 COLOR, 1 1,(20, 100)-(45, 1 10) 

1340 COLOR, 1 1 , (20, 140)-<45, 150) 

1350 COLOR 1 :CURSOR24,22:PRINTCHR9( 16); "MEN" 

1360 CURSOR18,62:PRINT "HI"-SC" 

1370 CURS0R18, 102:PRINT "SCORE" 

1380 CURS0R20, 142:PRINT "NAME" 

1390 COLOR15:CURSOR2O,80:PRINT HS 

1400 CURS0R20, 120:PRINT SC 

1410 CURSOR 18, 40 

1420 PRINTLI 

1430 CURSOR25, 160:PRINT N$ 

1440 X=60: Y=88 : S0UND5, 3, 15 

1450 FOR B=l TO 10 

1460 YY=INT(RND(l)*165+8):C=INT(RND(l)*13+2) 

1470 FORXX=220TO6OSTEP-INT(RND( 1 )*10 + 5) 

1480 SPRITE1,(XX,YY),48,C 

1490 SPRITE2, C XX+ 1 6 , YY ) , 44, C 

1500 IF STRIG(1)=1 THEN GOSUB 1660 

1510 IF STICK( l)=lANDY>15THENY=Y-8 

1520 IF STICK( l)=5ANDY<160THENY=Y+8 

1530 SPRITE0,(X,Y),36,4 

1540 G=INT(RND( 1)*25)+1 

1550 ON G GOSUB 1720,1720,1730,1890,1840,1720,1720,1730,1890,1720,1720,1720,1720 

, 1890, 1720, 18 40, 17 30, 17 20, 1890, 1730, 1840, 1720, 1890, 1780, 1840 

1560 NEXT XX 

1570 NEXT B 

1580 GOTO 2270 

1590 LI=LI+1 

1600 DATA 262,5,262,5,247,6,587,12,523,7,587,32 

1610 RESTORE 1600: FOR Z= 1 TO 6 : READ P,DU: SOUND 1 ,P, 15 : FOR 1 = 1 TO DU:NEXT I : SOUNDO 

:NEXT Z:SOUND5,3, 15 

1620 BLINE ( 10,35)-(50,50), ,BF 

16 30 C0L0R15: CURSOR 18, 38 

1640 PRINT LI 

1650 RETURN 

1660 LINE (X+15,Y+8)-(240,Y+8),C 

1670 S0UND1, 1000, 15 

1680 BLINE (X+15,Y+8)-(240,Y+8) 

1690 S0UND0:S0UND5,3, 15 

1700 IF Y+8>YY AND Y+8<YY+14 THEN GOSUB 2130 

1710 RETURN 

1720 RETURN 

1730 LINE (XX+8,YY+8)-(X+8,Y+30),C 

1740 S0UND4,RND( 1)*3, 15 

1750 BLINE <XX+8,YY+8)-(X+8,Y+30) 

1760 SOUNDO :S0UND5, 3, 15 

1770 RETURN 

1780 LINE (XX+8,YY+8)-(X+8,Y+8),C 

1790 S0UND4,RND( l)*3, 15 

1800 BLINE (XX+8,YY+8)-(X+8,Y+8) 

1810 SOUNDO 

1820 GOSUB 1980 

1 830 S0UND5 ,3,15: RETURN 

1840 LINE (XX+8,YY+8)-(X+8,Y-5),C 

1850 S0UND4,RND( 1)*3, 15 

1860 BLINE (XX+8, YY+8 ) -(X+8 , Y-5 ) 

1870 SOUNDO 

1880 SOUNDS, 3, 15:RETURN 

1890 Y1=INT(RND( l)*180)+3 

1900 LINE (255,0)-(X+8,Yl),C 

1910 LINE (255, 19 1 )-(X+8, Y 1 ) , C 

1920 S0UND4,RND( 1)*3, 15 

1930 BLINE (255,0)-(X+8,Yl) 

1940 BLINE (255, 191)-(X+8, YD 

1950 SOUNDO 

1960 IFY1>YANDYKY+16THENG0SUB1980 

1970 S0UND5.3. 15:RETURN 
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1980 SPRITEO, (X,Y),8,8 

1990 FOR S=15 TO 11 STEP -3:SOUND4 , 2,S : FOR DY=1 TO 15:NEXT DY:NEXT S 

2000 SPRITEO, (X.Y) , 12,8 

2010 FOR S=10 TO 7 STEP -3:S0UND4, 2,S : FOR DY= 1 TO 15:NEXT DY:NEXT S 

2020 SPRITEO, (X,Y), 16,8 

2030 FOR S = 7 TO STEP -3: S0UND4, 2 ,S : FOR DY= 1 TO 15:NEXT DY:NEXT S 

2040 SPRITEO, (0,0), 0,0 

2050 SOUNDO 

2060 LI=LI-1:IF LI<=0 THEN 4300 

2070 BLINE ( 1 5 , 35 )-( 50, 50) , , BF 

2080 PRINT CHR$(16):COLOR15 

2090 CURSOR 18, 40 

2100 PRINT LI 

2110 BEEP 

2120 SOUND5,3, 15:RETURN 

2130 SPRITE1,(XX,YY),8,C 

2140 F0RS=15T01 1STEP-3 : S0UND4, 2 ,S:FORDY= 1 TO 1 5 : NEXTDY :NEXTS 

2150 SPRITE2,(0,0),0,0:SPRITE3,(0,0),0,0 

2160 SPRITE1,(XX,YY), 12, C 

2170 FORS= 1 0T07STEP- 3 : S0UND4 , 2 , S : FORD Y= 1 TO 1 5 : NEXTDY : NEXTS 

2180 SPRITE1,(XX,YY), 16,9 

2190 F0RS = 7T00STEP-3 : S0UND4, 2 , S : FORDY= 1 TO 1 5 : NEXTDY : NEXTS 

2200 SPRITE1 ,(0,0) ,0,0 

2210 SOUNDO 

2 2 20 XX=60:SC=SC+INT(RND(l)*25+75) 

2230 IF SO5000 AND SC<5100 THEN GOSUB 1590 

2240 BLINE ( 15 , 1 1 5 )- (50, 1 30) , , BF 

2250 COLOR 15: CURSOR 18, 1 18:PRINT SC 

2260 SOUND5,3, 15:RETURN 

2270 SC=SC+INT(RND( 1 )*250+250) 

2280 BLINE ( 15, 1 15)-( 50, 1 30) , ,BF 

2290 SOUNDO: COLOR 1 5 : CURSOR 1 8, 1 18:PRINTSC 

2300 CURS0R100, 100:PtfINT "NEXT ROUND" 

2310 LINE (95,95)-( 165, 1 15),15,B 

2320 FOR 1=1 TO 500:NEXT I 

2330 BLINE ( 90, 90)- ( 170, 1 20) , , BF 

2340 IFSC>5000ANDSC<5100 THENGOSUB 1590 

2350 X=220:Y=88 

2360 FOR B=l TO 10 

2370 T=ItfT(RND( 1 )*10+ 10) : YY = INT (RND( 1 )* 150 + 20) :C=INT(RND( l)*13+2) 

2380 F0RXX=60 TO 230 STEP T 

2390 SPRITE1,(XX,YY),20,C 

2400 IF STRIG(1)=1 THEN GOSUB 2490 

2410 IF STICK(1)=1ANDY>15 THEN Y=Y-8 

2420 IF STICK( 1)=5ANDY<160 THEN Y=Y+8 

2430 SPRITEO, (X,Y), 40, 4 

2440 G=INT(RND(l)*25)+l 

2450 ON G GOSUB 1720,1720,1730,1890,1840,1720,1720,1730,1890,1720,1720,1720,1720 

,1890, 17 20, 1840,1730, 1 7 20, 1 890, 1 730, 1 840, 1 7 20, 1 890, 1 780, 1 840 

2460 SOUNDO: NEXT XX 

2470 NEXT B 

2480 GOTO 2590 

2490 LINE (X+i , Y + 8)-(60, Y + 8 ) , C 

2*500 S0UND1, 1000, 15 

2510 BLINE (X+8,Y+8)-(60,Y+8) 

2520 SOUNDO 

25 30 IFY+8>YYANDY+8<YY+16THENG0SUB2560 

2540 SOUNDO 

2550 RETURN 

2560 GOSUB 2130 

2570 XX=230 

2580 RETURN 

2590 SC=SC+INT(RND( 1 )*250+250) 

2600 BLINE ( 15, 1 15)-( 50, 1 30) , ,BF 

2610 SOUNDO: C0L0R15: CURSOR 18, 1 18:PRINTSC 

2620 CURSOR100, 100:PRINT "NEXT ROUND" 

2630 LINE (95,95)-(165, 1 15), 15, B 

2640 FOR 1=1 TO 500:NEXT I 

2650 BLINE (90, 90) -( 1 70, 1 20) , , BF 

2660 IFSO5000ANDSC<5100THENG0SUB1590 
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2670 SCREEN 2, 2 : COLOR, 1 , , 1 : CLS:MAG 1 

2680 SPRITEO, (50, 175) ,0, 13 

2690 SPRITE1, (50, 5), 20, 12 

2700 SPRITE2, (50, 45), 48, 10:SPRITE3, ( 66 , 45) , 44 , 1 

2710 SPRITE4,(34,85),24, 15:SPRITE5, (50,84) , 28, 15:SPRITE6, ( 66, 8 4) , 32, 1 5 

2720 SPRITE7, (50, 1 15), 36,7 

2730 SPRITE8,(50, 150), 4, 8 

2740 C0L0R1 2: CURSOR 100, 1 : PRINTCHR$ ( 16);"= 200 pts":BEEP 

2750 COLOR 10: CURSOR 100, 50: PRINT " = 150 pts":BEEP 

2760 COLOR15:CURSOR100,90:PRINT " = 300 pts":BEEP 

2770 C0L0R7: CURSOR 100, 120:PRINT "= 200 pts":BEEP 

2780 C0L0R8: CURSOR 100, 155:PRINT " = 400 pts":BEEP 

2790 COLOR13:CURSOR100, 180:PRINT "= Your Tank":BEEP 

2800 RESTORE 2880 

2810 FOR S=l TO 15 

2820 READ V 

2830 S0UND1,V, 1 5 : FOR 1=1 TO 50:NEXTI 

2840 S0UND2,V, 1 5 : FOR 1=1 TO 50:NEXTI 

2850 S0UND3,V, 15:F0R 1=1 TO 50:NEXTI 

2860 NEXT S 

2870 SOUNDO 

2880 DATA 262,330,392,330,262,440,494,523,494,440,392,330,392,330,26 2 

2890 S0UND3, 1 10,0 

2900 FOR 1=1 TO 3 

2910 T$=TIME$ 

2920 IF TIME$=T$ THEN 2920 

2930 S0UND1,440,15 

2940 FOR J=0 TO 10 

2950 NEXT J 

2960 SOUNDO 

2970 NEXT I 

2980 T$=TIME$ 

2990 IF TIME$=T$ THEN 2990 

3000 FOR 1=15 TO STEP -.2 

3010 S0UND1,880,I 

3020 NEXT I 

3030 F0RS=300T03000STEP 175: SOUND 1,S, 1 : S0UND2, 500+S, 1 3: S0UND3, 2000- (S/ 2) , 15: NEXT 

S : FORI = 1 T050 : NEXTI : SOUNDO 

3040 FOR S=3500T0500 STEP- 150 : SOUND 1 , S, 1 : S0UND2, 500 + S, 1 3: S0UND3, 1 000+S, 15 : NEXT 

S: SOUNDO 

3050 FOR S=500 TO 3500 STEP150:S0UND1 ,ABS(S) , 10:SOUND2 , 500+S, 1 3:S0UND3, 1 000+S, 15 

:NEXT S:SOUNDO:X=1 18: Y=170 

3060 S0UND3, 1 1 0, 0: FORI = 1 T0300: NEXTI 

3070 SCREEN 2 , 2 : COLOR, 1 , , 1 : CLS 

3080 COLORl,8,(0,0)-(255, 10), 1 

3090 CURSOR20,2:PRINT "SCORE" ;SC 

3100 CURSOR100,2:PRINT "HI~SC";HS 

3110 CURSOR180,2:PRINT "MEN";LI 

3120 CURSOR100, 13:PRINT "NAME ";N$ 

3130 COLOR, 15,(0, 170)-(255, 191) 

3140 COLOR, 8, ( 100, 10)-( 150,20) 

3150 FOR B=l TO 20 

3160 G=INT(RND( 1)*30)+1 

3170 ON G GOSUB 3200,3310,3200,3420,3530,3640,3200,3310,3420,3530,3200,3640,3310 

,36 40,35 30,3200,3310,3420,35 30,3640,3200,3420,3310,36 40,35 30,3200,3200,3420,3310 

,3640 

3180 NEXT B 

3190 SOUNDO:GOTO 780 

3200 P=200:C=12:YY=INT(RND( 1 )*50+35) 

3210 FOR XX=10 TO 230 STEP 10 

32 20 SPRITE 1 , (XX, YY) , 20, C: SOUNDO 

3230 IF STRIG(1)=1 THEN GOSUB 3750 

3240 IFSTICK( 1 )=3ANDX<230THENX=X+ 1 

3250 IFSTICK(1)=7ANDX>10THENX=X-10 

3260 SPRITEO, (X,Y),0, 13:SOUND4,2, 10 

3270 H=INT(RND( 1)*20) 

3280 ONHGOSUB 3850,3850,3860,3850, 3910, 3850,3960,3850,3860,3910,3850,3850,3850,3 

960,3960,3850,3860,3850,4050 

3290 NEXT XX 

3300 RETURN 
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3310 P=150:C=10:YY=INTCRNDC l)*50+35) 

3320 FOR XX=230 TO 10 STEP -5 

3330 SPRITE1, (XX, YY) , 48 , C : SPRI TE2 , CXX + 1 6 , YY) , 44, C 

3340 IF STRIG(1)=1 THEN GOSUB 3750 

3350 IFSTICKC 1 )=3ANDX<230THENX=X+10 

3360 IFSTICKC 1 >=7ANDX> 1 OTHENX=X- 1 

3370 SPRITEO,CX,Y),0, 13:S0UND4,2, 10 

3380 H=INT<RND( 1)*20) 

3390 ONHGOSUB 3850,3850,3860,3850,3910,3850,3960,3850,3860,3910,3850,3850,3850,3 

960, 3960, 3850, 3860, 3850, 4050 

3400 NEXT XX 

3410 RETURN 

3420 P=300:C=15:YY=INT(RND( l)*50+35) 

3430 FOR XX=210 TO 10 STEP -15 

3440 SPRITE!, (XX, YY) , 24, C: SPRI TE2, (XX+ 1 6 , YY- 1 ) , 28 , C : SPRITE3, CXX+32, YY- 1 ),32,C 

3450 IF STRIG(1)=1 THEN GOSUB 3750 

3460 IFSTICK( 1 ) = 3ANDX< 230THENX = X+ 10 

3470 IFSTICK( 1 ) =7ANDX> 1 OTHENX=X- 1 

3480 SPRITEO,CX,Y),0, 13:SOUND4,2, 10 

3490 H=INT(RND( 1 )*20) 

3500 ONHGOSUB 3850,3850,3860,3850,3910,3850,3960,3850,3860,3910,3850,3850,3850,3 

960, 3960, 3850, 3860, 3850, 4050 

3510 NEXT XX 

3520 RETURN 

3530 P=200:C=7:YY=INT(RND( l)*50+35) 

3540 FOR XX=10 TO 230 STEP 10 

3550 SPRITE1,(XX,YY),36,C 

3560 IF STRIG(1)=1 THEN GOSUB 3750 

3570 IFSTICK( 1 )=3ANDX< 230THENX=X+ 10 

3580 IFSTICKC 1 )=7ANDX> 1 OTHENX=X- 10 

3590 SPRITEO,(X,Y),0, 13:SOUND4,2, 10 

3600 H=INT(RND( 1)*20) 

3610 ONHGOSUB 3850,3850,3860,3850,3910,3850,3960,3850,3860,3910,3850,3850,3850,3 

960, 3960, 3850, 3860, 3850, 4050 

3620 NEXT XX 

3630 RETURN 

3640 P=400:C=8:XX=INT(RND(l)*200+20) 

3650 FOR YY=35 TO 180 STEP 20 

3660 SPRITE1,CXX,YY),4,C 

3670 IF .STRIG( 1)=1 THEN GOSUB 3750 

3680 IFSTICKC 1 )=3ANDX<230THENX=X+10 

3690 IFSTICKC1)=7ANDX>10THENX=X-10 

3700 SPRITEO,CX,Y),0, 13:SOUND4,2, 10 

3710 H=INTCRNDC 1 )*20) 

3720 ONHGOSUB 3850,3850,3860,3850,3910,3850,3960,3850,3860,3910,3850,3850,3850,3 

360, 3960, 3850, 3860, 3850, 4050 

3730 NEXT YY 

37 40 RETURN 

3750 LINE CX+8,Y+1)-CX+8,30),C 

3760 S0UND1, 1000, 15 

3770 BLINE CX+8, Y + 1 ) -CX+8 , 30) 

3780 SOUNDO 

3790 IF C=12ANDX+8>XXANDX+8<XX+16 THENGOSUB 4110 

3800 IF C=10ANDX+8>XXANDX+8<XX+31 THEN GOSUB 4110 

3810 IF C=15ANDX+8>XXANDX+8<XX+45 THEN GOSUB 4110 

3820 IFC=7ANDX+8>XXANDX+8<XX+16THENG0SUB41 10 

3830 IFC=8ANDX+8>XXANDX+8<XX+16THENG0SUB41 10 

3840 RETURN 

3850 RETURN 

3860 LINE CXX + 8, YY + 8)-(X-8, Y+8), C 

3870 S0UND4,RNDC 1)*3, 15 

3880 BLINE CXX+8 , YY+8)-CX-8 , Y+8) 

3890 SOUNDO 

3900 RETURN 

3910 LINE CXX+8, YY+8)-CX+17, Y+8), C 

3920 S0UND4,RNDC 1)*3, 15 

3930 BLINE CXX+8 , YY+8 )-CX+ 1 7 , Y+8) 

3940 SOUNDO 

3950 RETURN 

3960 R=INTCRNDC 1)*255) 
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3970 LINE (0,20)-(R,Y+8),C 

3980 LINE <255,20)-(R, Y+8),C 

3990 SOUND4,RND(l)*3, 15 

4000 BLINE (0,20)-(R, Y + 8) 

4010 BLINE (255,20)-(R,Y+8) 

4020 S0UND0 

4030 IF R>XANDR<X+16 THEN GOSUB4560 

4040 RETURN 

4050 LINE (XX+8,YY+8)-(X+8,Y+8),C 

4060 S0UND4,RND( 1>*3, 15 

4070 BLINE (XX+8 , YY + 8 ) - (X+8 , Y+8 ) 

4080 SOUNDO 

4090 GOSUB 4560 

4100 RETURN 

4110 SPRITE1,(XX,YY),8,C 

4120 FOR S=15 TO 11 STEP -3: S0UND4 , 1 , S : FOR DY=1 TO 15:NEXT DYrNEXT S 

4130 SPRITE2,(0,0),0,0:SPRITE3,(0,0),0,0:SPRITE1, (XX, YY), 12,C 

4140 FOR S=10 TO 7 STEP -3 : S0UND4, 1 ,S : FOR DY=1 TO 15:NEXT DY:NEXT S 

4150 SPRITE1,(XX,YY), 16, C 

4160 FOR S=7 TO STEP -3:SOUND4, 1 , S: FOR DY= 1 TO 15:NEXT DY:NEXT S 

4170 SPRITE1 , (0,0), 0,0 

4180 SOUNDO 

4190 IF C=12 THEN XX=230 

4200 IF C=10 THEN XX=10 

4210 IF C=15 THEN XX=10 

4220 IF C=7 THEN XX=230 

4230 IF C=8 THEN YY=180 

4240 SC=SC+P 

4250 BLINE (53,0)-(93, 1 0) , ,BF 

4260 COLORl:CURSOR55,2:PRINT SC 

4270 IFSC>5000ANDSC<5500THENGOSUB1590:BLINE ( 20, 30) -( 40, 50) , , BF 

4280 BLINE ( 200, 0)-( 220, 1 0) , ,BF : COLOR 1 : CURSOR203, 2 : PRINT LI 

4290 RETURN 

4300 SCREEN 2, 2 : COLOR, 1 , , 1 : CLS 

4310 X$="GAME OVER!":I=40 

4320 SOUNDO 

4330 C0L0R9, 1 

4340 FOR 0=1 TO LEN(XS) 

4350 Y$=MID$(XS,0, 1) 

4360 LINE ( 125,96)-(I+6, 132), 9 

4370 BLINE ( 1 25 , 96 )- ( I +6 , 1 32) , 9 

4380 1=1+14 

4390 FOR Z=15 TO 1 STEP -2 

4400 SOUND 1, 320, Z: SOUNDO: SOUND 1 ,330,Z 

4410 NEXT Z 

4420 CURSORI , 133:PRINT CHRS(17);YS 

4430 LINE (1-8, 146)-(I+15, 146), 9, BF 

4440 SOUNDO 

4450 NEXT 

4460 FOR AD=15 TO 1 STEP -1 

4470 A=INT(RND( 1 )*200) 

4480 SOUND 1,3 10, AD: SOUND 1,360, AD: SOUND 1,4 10, AD 

4490 NEXT AD 

4500 SOUNDO:FOR 1=1 TO 500:NEXT I 

4510 IF SOHS THEN HS=SC 

4520 CURS0R75,50:PRINTCHR$( 16); "PLAY AGAIN? [Y/N]" 

4530 IF INKEY$="" THEN 4530 

4540 IF INKEY$="Y" THEN SC = : LI = 20: SCREEN 1 , 1 : CLS : INPUT - INI TI ALS : - H ;N$ : N$ = LEFT$ 

(N$,3) :SCREEN 2,2:GOTO 780 

4550 END 

4560 SPRITEO, (X,Y),8,9 

4570 FOR S=15 TO 11 STEP -3 : S0UND4, 1 , S : FOR DY=1 TO 15:NEXT DY:NEXT S 

4580 SPRITEO, (X,Y), 12,9 

4590 FOR S=10 TO 7 STEP -3 : S0UND4, 1 ,S : FOR DY= 1 TO 15:NEXT DY:NEXT S 

4600 SPRITEO, (X,Y), 16,9 

4610 FOR S = 7 TO STEP -3 : S0UND4 , 1 , S : FOR DY= 1 TO 15: NEXT DY.-NEXT S 

4620 SPRITEO, (0,0), 0,0 

4630 SOUNDO 

4640 LI=LI-1:IF LI<=0 THEN 4300 

4650 BLINE ( 200 , 0) - ( 220, 1 0) , , BF 

cont on p55 

21 



AMAZE 



By R. D. & A. A. Morgan 



As this program is written purely in BASIC it tends 
to be a little slow in building up the screens, 

however it is a good exercise in strategy. 

100 REM AMAZE 

110 REM TAPE VERSION 

120 REM By R D & A A Morgan 

130 REM 

140 REM 

150 GOSUB 1440 

160 MAG 0:SCREEN 2,2:CLS 

170 COLOR 4,1, (0,0)-(255,191),0 

180 DIM A$(38,22) :T=0 

190 PATTERN S#0, "0055497F223E1400" 

200 PATTERN S#15, "081C2A7F63351C08" 

210 Q=0:RO=l:EN$ = f, N M : 0=0 : OQ=0 : OF = 

220 REM 

230 CURSOR 15,182:COLOR 12,1:PRINT "A M A Z E"; 

240 IF G=l THEN PRINT " COMPUTER OPPONENT" : GOTO 260 

250 PRINT M PLAYER OPPONENT" 

260 COLOR 4,1: CURSOR 10,2:PRINT "HI -SCORE= ";: COLOR 12,1:PRINT H;" ";NM$:CURSOR 1 

65,2:COLOR 4,1:PRINT "LEVEL=" ;: COLOR 12,1:PRINT RO : COLOR4 , 1 : CURSOR10, 12 : PRINT "T 

ODAYS-HI="; : COLOR12, 1 : PRI NT T 

270 GOSUB 520:CURSOR 165, 12 : COLOR4 , 1 : PRINT "FOOD=" : CURSOR85, 22 : PRINT "SCORE=" 
280 OQ=Q:OF=F 

290 CURSOR130 / 22:COLOR 12 , 1 : BLINE ( 125, 22 ) - ( 195, 30 ) , , BF : PRINT Q:CURSOR 201,12:BLI 
NE(201,12)-(250,20),,BF:PRINT F 

300 IF STICK(l) <> THEN 10SUB 750 

310 IF F<1 THEN GOTO 370 

320 IF G=l THEN GOSUB 820 

330 IF G=2 THEN Z$=INKEY$:IF Z$<>"" THEN GOSUB 820 

340 IF EX = MX AND EY=MY THEN GOTO 390 

350 IF OQOQ OR OFOF THEN GOTO 280 

360 GOTO 300 

370 RO=RO+l:IF Q>T THEN T=Q 

380 CLS:GOTO 230 

390 GOSUB 630:GOSUB 670:SOUND 5,l,13:FOR A=l TO 400:NEXT A:SOUND 0:CLS 

400 IF Q>T THEN T=Q:IF T>H THEN H=T:BEEP 2 

410 CURSOR 70,85:COLOR 15,1:PRINT "SCORE=" ; Q; " HI-SCORE=";H 

420 CURSOR 110,95:COLOR 10,1:PRINT "GAME OVER" 

430 CURSOR 70,105:PRINT "LEFT BUTTON - PLAY AGAIN" 

440 CURSOR 82,115:PRINT "RIGHT BUTTON - FINISH" 

450 MAG 3 

460 GOSUB 1330:MX=5:MY=11:EX=34 :EY=ll:GOSUB 630:GOSUB 670 

470 IF STRIG(1)=1 THEN SOUND : MAG 0:CLS:GOTO 210 

480 GOSUB 1330:MX=34:MY=11:EX=5:EY=11:GOSUB 630:GOSUB 670 

•190 IF STRIG(1)=2 THEN SOUND 0:END 

500 SOUND 5,3,10:GOTO 460 

510 REM SET UP AND DRAW MAZE 

520 F=0:FOR AX = 3 TO 36 STEP G :FOR AY = 4 TO 20 

530 X=INT(AX*6.5) :Y=INT(AY*8. 3} 

540 R=(RND(1)-RO/50) 

550 A$(AX,AY)=" " 

560 IF R>.73 THEN A$ ( AX, AY ) ="W" : CURSORX, Y : COLOR4 , 1 : PRINT "£" 

570 IF R<.06 THEN A$ ( AX, AY ) ="F" :F=F+1 : CURSORX, Y : COLOR12, 1 : PRINT "A" 

580 NEXT AY: NEXT AX: SOUND : BEEP 2 

590 MY=12:MX=2:GOSUB 630 : EX=37 : EY=12 : GOSUB 670 

60 RETURN 

610 REM 

620 REM DRAW GOODIE 

630 X=INT(MX*6.5-1.3) 

640 Y=INT(MY*8.3-1.5) 

650 SPRITE 1, (X,Y),15,15:RETURN 

660 REM DRAW ENEMY 
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670 X=INT(EX*6.5-1.3) 

680 Y=INT(EY*8.3-1.5) 

690 SPRITE 0, (X,Y),0,9:RETURN 

700 REM DRAW OUT FOOD 

710 X=INT(SX*6.5) 

720 Y=INT(SY*8.3) 

730 CURSORX,Y:COLORl,l:PRINT "A":RETURN 

740 REM 

750 SX=MX:SY=MY:SS=STICK(1) 

760 GOSUB 1190 

770 IF A$(SX,SY)="F" THEN F=F-1 : A$ ( SX, SY ) =" 

:SOUND 3,659, 15:SOUND 

780 IF A$(SX,SY)= ,, W" THEN BEEP :Q=Q-5 : GOTO 800 

790 MX=SX:MY=SY:GOSUB 630 

800 RETURN 

810 REM 

820 SX=EX:SY=EY:SS=0 

830 IF G=l THEN 900 

840 IF Z$=CHR$(13) THEN GOSUB 1680:RETURN 

850 IF Z$=CHR$(29) THEN SS=7 

860 IF Z$=CHR$(30) THEN SS=1 

870 IF Z$=CHR$(31) THEN SS = 5 

880 IF Z$=CHR$(28) THEN SS=3 

890 GOTO 9 80 

900 IF MX<EX AND MY<EY THEN SS=8:GOTO 980 
910 IF MX=EX AND MY<EY THEN SS=l:GOTO 980 

920 IF MX>EX AND MY<EY THEN SS=2:GOTO 980 

930 IF MX<EX AND MY=EY THEN SS=7:GOTO 980 

940 IF MX>EX AND MY=EY THEN SS=3:GOTO 980 

950 IF MX<EX AND MY>EY THEN SS=6:GOTO 980 

960 IF MX=EX AND MY>EY THEN SS=5:GOTO 980 

970 IF MX>EX AND MY>EY THEN SS=4 

980 GOSUB 1190 

990 IF G=l AND A$ ( SX, SY ) ="W" THEN GOTO 1030 

1000 IF G=2 AND A$ ( SX, SY ) ="W" THEN RETURN 

1010 EX=SX:EY=SY:GOSUB 670:SOUND 5,3,13 

1020 RETURN 

1030 SX=EX:SY=EY 

1040 IF MY<EY THEN SS=l:GOTO 1070 

1050 IF MY>EY THEN SS=5:GOTO 1070 

1060 GOTO 1100 

1070 GOSUB 1190 

1080 IF A$(SX,SY)="W" THEN GOTO 1100 

1090 GOTO 1010 

1100 SX=EX:SY=EY 

1110 IF MX<EX THEN SS=7:GOTO 1140 

1120 IF MX>EX THEN SS=3:GOTO 1140 

1130 SOUND 0:GOTO 1020 

1140 GOSUB 1190 

1150 IF A$(SX,SY)="W" THEN SOUND : GOTO 1020 

1160 GOTO 1010 

1170 REM 

1180 REM COMMON CHECK ROUTINE 

1190 ON SS GOSUB 1250,1260,1270,1280,1290,1300,1310,1320 
37 THEN SX=37 
2 THEN SX=2 
2 THEN SY=2 
22 THEN SY=22 



":GOSUB 710:Q=Q+10*RO:SOUND 3,415,15 



1200 IF SX > 

1210 IF SX < 

1220 IF SY < 

1230 IF SY > 

1240 RETURN 

1250 SY=SY-1:RETURN 

1260 SY=SY-1:SX=SX+1:RETURN 

1270 SX=SX+1:RETURN 

1280 SX=SX+1:SY=SY+1:RETURN 

1290 SY=SY+1:RETURN 

1300 SY = SY + 1:SX = SX-1 '.RETURN 

1310 SX=SX-1:RETURN 

1 370 ^X = S X - 1 "SY = SY — 1 "RETURN 

1330 SOUND 3^131, 12:SOUND 3, 139 , 12 : SOUND 3, 147, 12 : SOUND 3 , 156,12 : SOUND 3,165,12: 

SOUND 3,175,12:SOUND 3 , 185, 12 : SOUND 3, 196 , 12 : SOUND 3, 208, 12 : SOUND 3,220,12 

1340 SOUND 3,233,12:SOUND 3,247,12 

1350 RETURN 23 



IF MX<EX THEN SS=7:G0T0 1070 
IF MX>EX THEN SS=3:GOTO 1070 
SOUND 3,233, ll:SOUND 3,220,11 

3,208,11:SOUND 3,196,11 

3,185,ll:SOUND 3,175,11 

3,165,ll:SOUND 3,156,11 

3,147,ll:SOUND 3,139,11 

3 ,131, 11: RETURN 
15,1 

it **AMAZE** 

"-A HIDE AND SEEK TREASURE HUNT GAME - M 
" DESIGNED BY R.D.MORGAN " 

:PRINT :PRINT 

" A RANDOM PATTERN OF BLOCKS BEING IMPENETRABLE WALLS AND COLUMNS 
A SCATTERING OF TREASURE OR FOOD WHICH MUST BE COLLECTED TO 



1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
IS GEN-ERATED WITH 
GAIN POINTS." 
1500 PRINT :PRINT " 
FT HAND EDGE. THIS 



SOUND 

SOUND 

SOUND 

SOUND 

SOUND 

CLS: COLOR 

PRINT " 

PRINT 

PRINT 

PRINT 

PRINT 



WHEN THE SCREEN IS FILLED A SPRITE-YOU- APPEARS ON THE LE 
IS CONTROLLED BY THE JOYSTICK." 



THE RIGHT HAND EDGE ANOTHER SPRITE APPEARS. THIS IS 
ALWAYS MOVE DIRECTLY TOWARDYOU IN ORDER TO KILL YOU !" 
PRINT "PRESS ANY KEY TO CONTINUE." 
A$="" THEN 1530 



1510 PRINT " ON 
ENEMY WHICH WILL 
1520 PRINT :PRINT 
A$=INKEY$: IF 
CLS 

PRINT " YOU MUST CONTROL YOUR ENEMY'S 
MOVEMENTS IN SUCH A WAY THAT HE IS 
AND COLLECT FOOD IN SAFETY." 



YOUR 



DIRECTION OF MOVEMENT BY YOUR 
TRAPPED BEHIND A WALL AND YOU CAN 



ONE FORGETFUL MOMENT HOWEVER AND HE WILL ESCAPE AND BE AFTER YO 



WHEN YOU GET 
WALLS BUT MORE 



THROUGH THE ROUND ANOTHER 
FOOD - AND HIGHERPOINTS. " 

PLAY AGAINST COMPUTER? Y/N " 



SCREEN WILL BE 



1530 

1540 

1550 

OWN 

GO 

1560 PRINT 

U AGAIN!" 

1570 PRINT :PRINT " 

GENERATED WITH FEWER 

1580 G=2 

1590 PRINT:PRINT:PR1NT :PRINT 
1600 A$=INKEY$:IF A$="" THEN 1600 

1610 PRINT A$:IF A$="Y" THEN G=l 

1620 FOR MN=1 TO 100:NEXT MN 

1630 PRINTrPRINT :PRINT " DO YOU WISH TO PLAY? Y/N "; 

1640 A$=INKEY$:IF A$="Y" THEN 1670 

1650 IF A$="N" THEN CLS:END 

1660 GOTO 1640 

1670 PRINT "YES": RETURN 

1680 IF MX=EX OR MY=EY THEN GOTO 1700 

1690 BEEP: BEEP: BEEP: RETURN 

1700 IF MX=EX AND MY=EY THEN RETURN 

1710 SG=SGN(MY-EY) :IF MX=EX THEN FOR EY=EY TO (MY-3*SG) STEP SG:GOSUB 670:NEXT E 

Y: RETURN 

1720 SG=SGN(MX-EX 

1730 RETURN 



:FOR EX=EX TO (MX-3*SG) STEP SG:GOSUB 67C:NEXT EX 



* 



NEW SOFTWARE 



::: CASSETTE ::: 



MOONBASE ALPHA 

From Mike Boyd of 
''Sir Roderick's Quest" fame 



Available 1st March 

$30.25 



& 



* 



DISK GAMES 



NOW AVAILABLE!!! 



ft 



Goldminer 

Cyco 

Sprite Editor 

Froggy 
Cubit 



$43.95 
} $43.95 



Or all five on one disk for $60.00 



ft 



ft 



ft 



ft 
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HACKERS 
CORNER 



Last time I gave you the complete set of Z80 instructions, 
the reason for this was simple, not many people had an easy- 
to-use table of the instructions. Most people who are into the 
Z80 have a copy of "Programming the Z80" by Rodney Zaks. 
and as we all know, the Z80 table in that is diabolical! 



THE HIDDEN Z80 
OPCODES SCANDLE 
By MICHAEL HOWARD 



This month, as promised, I will show you the HIDDEN 
OPCODES! These 98 "hidden" opcodes, have been known 
for quite a few years now. so I take absolutely no credit for 
revealing them. Some games writers use them usually for 
convenience, or in protection systems to confuse the unwary hacker! 

So what are these extra commands, and where have they come from? The majority of them are concerned 
with the IX and IY index registers, but there is one shift instruction that appears. 

If you take a look at a table of the Rotate and Shift instructions, all but one of them has a left and right version: 

RLC RRC 
RL RR 

SLA SRA 

RLD RRD 

SRL 

As you can see, the final one, SRL (Shift Right Logical) has no left hand counterpart — which should be SLL (Shift Left 
Logical), and there is a gap in the logical sequence of hex codes where these instructions should be from &CB &30 to 
&CB &37. 

Experimenting with these opcodes shows that the SLL instructions are in fact recognised, and a logical shift to the left does 
take place. But it does not follow the normal rules of shifting! When a SRL instruction takes place, all the bits jump one 
bit to the Right: bit goes into the Carry flag; and a is placed in bit 7. 

SLL would be expected to do the same, and it does, to a certain extent! It shifts the register to the left by one bit; bit 7 
goes into the Carry flag, and a 1, NOT A 0, goes into bit 0. All the flags are set/reset exactly as SRL. So as you see. 
the only real difference is that a 1 is placed in the byte instead of an 0. Why not use the instruction? The opcodes are 
at the end of the article. 

But let's get back to the majority of these hidden codes, which relate to the IX and IY index registers. If you study the 
opcode for any index register, you'll see that it is in fact identical to using the HL register pair, the only difference is that 
you add &DD (for IX? or &FD (for IY) at the start of the instruction, and then include an offset byte. 

E.g. ADD A(HL) 86 ADDA.(IX + 2) DD 86 02 

DEC (HL) 35 DEC (IX + 5) DD 35 02 

LD (nnnn),HL 22 nn nn LD (nnnn).IY FD 22 nn nn 

However there are some gaps in the sequence of codes for the index register instructions. Take, as an example, LD A.H 
(hex code &7C). There is no published IX or IY equivalent, whose code would be DD 7C or FD 7C. If you experiment 
with these codes, there is in fact an effect! If you try FD 7C. the top 8 bits of the IY register are leaded into the Accumulator 
(A-register). If you try DEC L with a DD at the start, the lower 8 bits of the IX register are DECremented! 

All these new instructions relate to the individual halves of the index registers (don't forget, they are 16 bit registers, not 
8 bit!), and as their opcodes relate directly to the H and L registers, they are sometimes called the XH and XL for the 
High and Low halves of the IX register, and YH and YL for the High and Low halves of the IY register. 

So, suddenly you have four extra 8 bit registers to play with! IXH. IXL, IYH and IYL. Great! 

Although these new instructions are not documented by Zilog in their Z80 documentation, I have yet to come across a 
Z80 that does not accept them, so have a bit of fun with them, and tell me if you find any interesting ideas through using them. 



ADC A.XH 


DD8C 


ADC A. XL 


DD8D 


ADD A.XH 


DD84 


ADD A. XL 


DD85 


AND XH 


DD A4 


AND XL 


DD A5 


CP XH 


DD BC 


CP XL 


DD BD 


DEC XH 


DD 25 


DEC XL 


DD 2D 


INC XH 


DD 24 


INC XL 


DD 2C 


LD A.XH 


DD 7C 


LD A. XL 


DD 7D 


LD B.XH 


DD 44 


LD B.XL 


DD45 


LD C.XH 


DD4C 


LD C.XL 


DD 4D 



The Hidden Opcodes 

LD XH,A 
LD XH.B 
LD XH.C 
LD XH,D 
LD XH.E 
LD XL, A 
LD XL,B 
LD XL.C 
LD XL,D 
LD XL,E 
LD XL.XH 
LD XL.nn 
LD XH.XL 
LD XH.nn 
OR XH 
OR XL 
SBC A.XH 
SBC A, XL 
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DD 67 
DD 60 
DD 61 
DD 62 
DD 63 
DD 6F 
DD 68 
DD 69 
DD6A 
DD6B 
DD 6C 
DD 2E nn 
DD65 
DD 26 nn 
DDB4 
DD B5 
DD 9C 
DD9D 



LD D.XH 


DD 54 


SUB XH 


DD 94 


LD D.XL 


DD 55 


SUB XL 


DD 95 


LD E.XH 


DD5C 


XOR XH 


DD AC 


LD E.XL 


DD5D 


XOR XL 


DD AD 




For the IY commands. 


replace the DD with FD 




SLL (HL) 


CB 36 


SLLC 


CB 31 


SLL (IX + n) 


DD CB n 36 


SLL D 


CB 32 


SLL (IY + n) 


FD CB n 36 


SLLE 


CB 33 


SLL A 


CB 37 


SLL H 


CB 34 


SLLB 


CB30 


SLL L 


CB35 



SSEIsIalEilEilstaCEitB^ 



10 REM MR MOO 
20 REM A graphics demo 
30 REM Brett Skellon 
40 REM 

50 SCREEN 2 / 2:COLORl5 / 
60 CIRCLE(100,70),17, 6 
70 CIRCLE (93, 67), 3,6,1 
80 CIRCLE(107,67),3,6, 
90 CIRCLE(100,70),10,6 
100 CIRCLE(100,50),20, 
110 CIRCLE(92,50),7,6, 
120 CIRCLE(108,50) ,7,6 
130 CIRCLE(92,50),3,1, 
140 CIRCLE(108,50),3,1 
150 CIRCLE(75,55),15,6 
160 CIRCLE(125,55),15, 
170 CIRCLE(75 / 55),6,6 / 
180 CIRCLE(125,55),6,6 
190 CIRCLE(80,29),10,1 
200 CIRCLE(80,29),15,1 
210 CIRCLE(120,30),10, 
220 CIRCLE(120,30),15, 
230 PAINT(108,30),11 
240 PAINT(93,30),11 
250 CIRCLE(116,120),40 
260 CIRCLE(86,114),40, 
270 CIRCLE(73,145),5,6 
280 CIRCLE(127,142),5, 
290 CIRCLE(130,152),10 
300 CIRCLE(73,154),10, 
310 LINE (77,159)-(92, 
320 LINE (125,157)-(10 
330 LINE (92,159)-(100 
340 LINE (108,157)-(10 
350 CIRCLE(110,120),4, 
360 CIRCLE(106,120),2 / 
370 CIRCLE(109,117),4, 
380 CIRCLE(95,100),3,1 
390 CIRCLE(93,100),5,1 
400 CIRCLE(94,103),3,1 
410 CIRCLE(97,104),4,1 
420 CIRCLE(85,130),5 / 1 
430 CIRCLE(87,128),4,1 
440 CIRCLE(120,90),4 / 1 
450 CIRCLE(137,115),15 
460 CIRCLE(151,118),3, 
470 GOTO 470 



15, ,1:CLS 
, .9,0,1 
,0,1,BF 
1, 0, 1,BF 
,.9,.1,.4 
6,1, .4, .12 
1.1, .32, .12 
,1.1, .32, .22 
1,0,1,BF 
, 1 , , 1 , BF 
,1. .15, .84 
6,1, .67, .35 
1, .15, .84 
,1, .67, .37 
1,1, .85, .1 
1, .7, .83, .07 
11,1, .47, .7 
11, .7, .46, .7 



* 




urn 

moo 




,6,1. 
6,1.7 
,1,.9 
6,1,. 
,6, .6 
6, .6, 
159), 
8,157 
,130) 
0,130 
1,1,0 
1,1.5 
1,2,0 
,2,0, 
,.9,0 
,.9,0 
,1,0, 
,1,0, 
,2,0, 
,2,0, 
,6,1. 
6,2,0 



8, .45, .61 

,.9, .07 

,.2 

3, .55 

, .7, .35 

.2, .8 

6 

),6 

,6 

),6 

,1,BF 

,•0,1, BF 

,1,BF 

1,BF 

,1,BF 

,1,BF 

1,BF 

1,BF 

1,BF 

1,BF 

5, .6,0 

,1,BF 
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Here are some interesting statistical programs 
by Dr A. D. Campbell. 

The first program calculates factorials, (n!). Factorial 7. or 7! is 7 x 6 x 5 x 4 x 3 x 2 x 1 = 5040. The SEGA memory 
limits you to 69! The John Sands program simply scrolled through the whole lot from 0! 1o 69! My modification gives you 
the choice; the lot, or an entered single value. 

The second program calculates simple functions like means, standard deviations and standard errors. 

The third program calculates standardised scores. This would allow teachers and others to scale marks. You specify the mean 
and standard deviation you would like, and the program does the scaling. 

FACTORIAL 

10 CLS 

20 PRINT" FACTORIAL" s PRINT i PRINT : PRINT: PRINT 

30 P0KE&HAF6E, 1 

40 PRINT" THIS PROGRAM CALCULATES THE VALUE OF" 

50 PRINT 

60 PR INT "N! FUR ALL. INTEGER VALUES FROM 0! TO": PRINT 

70 PR I NT "69' WHERE THE MAXIMUM ALLOWABLE VALUE ": PR INT 

80 PRINT "OF THE SEGA PROCESSOR IS REACHED. " : PRINT: PRINTS PRINT 

90 PRINT"SWI rCH PRINTER ON" : PRINT : PRINT : PRINT 

100 PR I NT "DO YOU WANT A SINGLE VALUE OR A FULL": PR INI 

110 PRINT "LIST? ENTER CSV 3 OR LFLT . " : PR1 N r 

120 INPUT J* 

130 IF J*="SV" THEN 310 

140 IF J$="FL" IHEN 160 

150 IF J#< ,. u;..,}- "KL" I HEN 120 

160 N=69 

170 LPRINT " N"," N'":LPRINT 

180 LPRINT " 0' " , " I" 

190 LPRINT " 1 ' " , " 1 " 

200 FOR M=2 TO N STEP 1 

210 L=M 

220 F1»M 

230 FOR 1 = 1 TO 11-1 STEP 1 

240 L=L-1 

250 F1=F1*L 

260 NEXT 1 

270 LPRINT M; ,F 1 

280 NEXT M 

290 PRINT: PRINT: PRINT "CALCULATIONS COMPLETED" 

300 END 

310 PRINT: INPUT "ENTER VALUE OF N: N = ";M 

320 L=M 

330 F1=M 

340 EUR 1 = 1 roM-is rEP1 

350 L=L-1 
360 El=Fl*L 
57U NEX I L 

380 LPRINTM; , El 

390 PRINT :PRIN1 : PRINT "CALCULATION COMPLE ILu" 
400 END 



STANDARDISED SCORES 



2 CLS 

5 PR I NT " S i ANDARD I 3ED SCORES" : PR INT: PR I NT 

50 P0KE&HAF6E, 1 

100 REM PROGRAM SS 

110 DIM X<200> ,Y<200) ,Z (200) 

120 PRINT"THIS PROGRAM CALCULATES TWO SETS OF": PRINT 

130 PR I NT "STANDARD I SEE SCORES: " sPRINT : PRINT 

1 40 PR INT " Y ( I) : ME AN = " : PF I N T 

145 PRINT" 3 ! ANDARD DEVIATION = I ": PRINT : PRINT 

150 PRINT"Z<I): MEAN = Mu": PRINT 
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155 
160 
170 
175 
190 
195 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 

3ZQ 

340 
350 
360 
3 70 
375 
380 
390 
400 
410 
420 
430 
435 
440 



PRINT" STANDARD DEVIATION = Sigma" : PRINT: PRINT 

PR I NT "SWITCH PRINTER ON" : PR INT : PRINT 

PR I NT "ENTER DESIRED MEAN VALOE OF Z ( I ) ARRAY" 

PRINT"Mu = "; : INPUT M2:PRINT 

PR I NT: PR I NT "ENTER DESIRED STANDARD DEVIATION OF": PR I NT 

PR I NT "Z (I > ARRAY, Sigma = ";: INPUT S2 

PR I NT: PR I NT: INPUT "ENTER NUMBER OF DATA VALUES: "jN 

PR I NT: PR I NT: PR I NT "NOW ENTER SINGLY THE";N;" DATA VALUES" : PR INT 

FOR 1=1 TO N 

INPUT x<n 

NEXT I 

REM CALCULATE MEAN 

Y1=0 

FOR 1=1 TO N STEP 1 

Y1=Y1 + X CI) /N 

NEXT I 

REM CALCULATE STANDARD DEVIATION 

Y2=0 

FOR 1=1 TO N STEP 1 

Y2=Y2+ ( (X <I)-Y1)*(X (I )-Yl ) / (N-l ) ) 

NEXT I 

S1=Y2 .5 

REM CALCULAT E V ( I ) AND Z < I ) 

PRINT 

LPRINT:LPRINTCHR* (27) ; "E" ; "X ( I ) " , ' 

FOR 1=1 TO N STEP 1 

Y ( I )=(X (I) -Yl ) /SI 

Z ( 1 ) =M2+S2*Y ( I ) 

LPRIIMT X (I ) ,Y(I) 

NEXT I 

PRINT: LPRI NT 

LPRINT:LPRINT:Lf"RIN'ICHh'.r (27) ; "E"; "X (I ) 



Y < I ) ": LPRINT : L.PRINTCHR* (27) ; "F" 



Z(I) ": LPRINT: LPR I NTCHR* (27) ; "F 



450 FOR 1=1 TO N STEP 1 
460 LPR INT X < I > , Z CI ) 

470 NEXT I 

480 PR I NT "CALCULATIONS COMPLETED 

490 END 



SINGLE VARIABLE STATISTICS 



LLb 

PQKE&HAF6E, l 



VARIABLE STATISTICS" : PRINl 
PR I NTE R ON " : PR I NT : PR 1 N 1 



20 

40 

50 PRINT" SINGLE 

60 PRINT: PRINT "SWITCH 

100 REM PROGRAM SVS 

110 DIM X<20ifl> 

120 PRINT: PR I NT " THIS PROGRAM CALCULATES THE MOST": 

130 PR I NT "COMMON SINGLE VARIABLE X STAT 1ST 1 Co OF" 

140 PR INT "A SET OF NUMBEF S . " : f : R I N 1 

155 PRINT : PRINT : PRINT 

160 INPUT "ENTER TOTAL NUMBER Of- DA 1 A VALUES: ";N 

1 65 PR I NT : PR I N T : PRINT : PRINT 

170 PR I NT "ENTER NOW, ONE AT A TIME, ["HE ! 

130 PRINT" ACTUAL VALUES: ": PRINT 

190 FOR 1=1 TO N STEP 1 

200 INPUT XU) 

201 IF X(I)=0 THEN PRINT "CAREFUL, THERE IS A ZERO 

202 X<I)=X (D+1E-98 
210 NEXT I 

220 Y1=0 

230 M=l 

240 FOR 1=1 TO N STEP 1 

250 Y1-Y1+X<I) 

260 NEXT 1 

270 Y1=Y1/N 

280 Y3=0 

290 Y4=0 

300 y2 = 

310 Q=0 
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PR I NT : PR INT : PR I NT : PR INT 



PRINT 



VALUE IN DATA": X ( I )=lE-98 



320 


H=0 




330 


6=1 




340 


FOR 1=1 TO N STEP 1 




350 


QsQ'+X CI)*X(I) 




360 


H=H+ < 1 / X ( I ) ) 




370 


G=G*X < I ) 




375 


Z=lX (I) -YD 




380 


Y2=Y2+Z*Z 




390 


Y3=Y3+Z*Z*Z 




400 


Y4=Y4+Z*Z*Z*Z 




410 


NEXT I 




420 


Q=(Q/N) -.5 




430 


H=N/H 




438 


IF G:.=0 THENPR I NT SPRINT "GEOMETRIC MEAN CAN 


NOT BE C( 


440 


G=G" (1/N) 




450 


Y2=Y2/N 




460 


Y3=Y3/N 




470 


V4=Y4/N 




480 


C5=Y3/ (Y2- 1.5) 




490 


C8=Y4/ (Y2 2) 




500 


V1=Y2*N/ (N-l) 




510 


LPRINT"MEAN (1ST MOMENT ABOUT THE ORIGIN; 


•■ , V 1 


520 


LPRINT"2ND MOMENT (UNBIASED) ABOUT THE MEAN 


",V1 


530 


LPRINT"2ND MOMENT ABOUT THE MEAN 


»,Y2 


540 


LPR I NT "HARMONIC MEAN 


",H 


550 


LPR I NT "QUADRATIC MEAN 


",Q 


560 


LPRI NT "GEOMETRIC MEAN 


",G 


565 


IF G>0 THEN 580 




568 


PRINT 




570 


PR I NT "NOT ICE THAT GEOMETRIC MEAN MAY BE 


PRINTED 


ATIVE OR ZERO VALUES 1M THE DATA SET." 




ET-7S 


PRINT 




580 


S1=V1 0.5 . 




590 


LPR I NT "STANDARD DEVIATION 


■ 


600 


LPR I NT "3RD MOMENT (MEAN) 


•• , y :• 


610 


LPR1NT"4TH MOMENT (MEAN) 


" , Y4 


620 


LPRINT'-SKEWNESS 


, C5 


630 


LPRINT"KURTOSIS 


" , C B 


640 


S2=31/ (N 0.5) 




650 


LPR I NT "STANDARD ERROR 


",S2 


654 


PRINT: PRINT 




660 


PR I NT "CALCULATIONS COMPLETED" 




670 


END 





CALCULATED' • ":G=0: GOTO 450 



AS ZERO IF THERE ARE NEG 



LIGHTfl/ING BOLT 



BASIC EXTENSION 
By Michael Hadrup 



Includes Load/Save/ Verify Routines and 
dissassembler, machine code monitor, etc. 



AVAILABLE SOON 
FOR 16k/32k/disk 
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Programs by B. E. Pycroft 



Wainuiomata 



ZERO & "0" & PRINTER 



1 REM Patterns ZERO & "0" & Ptr '2':::by B.E. PYCROFT. Wainuiomata. 1985. 

2 PRINT CHR$(26) :PATTERNCK79, "7088888888887000" : PATTERNC#4 8 , "70889 8A8C8 887000" 

3 POKE&H8 6 50,&H5B:POKE&H8651,&HAB:POKE&H8652,&H5D:POKE&H8 6 53,&HA3 

4 REM '[' = 'CONSOLE'. ')*= 'CURSOR'. 

5 POKE&H8 58 6,4H5C:POKE£H8 58 7,&H8 7 :POKE&H8 588, &H5F : POKE&H8 589 , &HB5 

6 REM '\' = "CONT'. . '_'= 'HCOPY'.. 

7 POKE&H5E62,&H4 8:POKE&H5E6 3,69:POKE&H5E6 4,88:POKE&H5E65,36 

8 POKE&H5E36,&H5 0:POKE&H5E37,6 9 : POKE&H5E3 8, 69 : POKE&H5E39 , 7 5 

9 POKE&H5E0E,&H50:POKE&H5E0F,79:POKE&H5E10, 7 5 : POKE&H5E11, 69 

10 REM 'RAD( ' = 'HEX$'. . ' TAN ( ' = 'PEEK'.. ' COS ( ' ■ 'POKE'.. 

11 POKE&H5EF2, &H4 3 :POKE&H5EF3, 65 :POKE&H5EF4, 7 6 :POKE&H5EF5, 76 

12 REM 'SIN( ' = 'CALL' . 

13 POKE&H5E92,&H26:POKE&H5E93,72 

14 REM 'PI ' = '&H' . 

15 POKE&H86 54,&H4 0:POKE&H86 55,&H8D 

16 REM '@' = 'FILES':: Makes directory listing more friendly!! ('@' 
is permanent on my bas ic . B.E .P . ) 



17 REM << Note that now 
NSOLE;; *]'>CURSOR;; '§' 



the 'MOTOR' command has been DELETED in favour of ' I ' >CO 
>FILES which occupies the same space at &H8650 to &H8655 



18 REM > Obviously, one may alter or rearrange this program for personal taste o 
r even have several Modified BASIC Disks oriented for specific tasks. 
20 REM >E.N.D.< 



DISK FILES PRINTER 



10 RSH Disk files printer.. B. E. PYCROFT.. wainuiomata. 1986. 
12 REM You may alter the 'TAB(T*xx)' constant for other formats. 
20 GOTO 300 



100 
110 
120 
140 
150 
160 
170 
180 
190 
200 
210 
350 
220 
300 
302 



TR=20:SC=1:N=1 

DSKI$TR,SC;A$(N) ,0,127;A$(N+1),128,128 

IF ASC(A$(N) )>32 THEN N=N+2 : SC=SC+1 : IF SC<11 THEN 110 

C=1:T=0 

S=l:0=12 

P$=MID$(A$(C),S,0) :IF ASC(P$)< 32THEN 180 

LPRINT TAB(T*15) ;P$; :T = T + 1 : IF T>2THENT=0 : LPRINT 

S=S+16:IF S<127 THEN 160 

C=C+1:IF C<N THEN 150 

LPRINT DSKF;"K bytes f ree .": LPRINT 

INPUT "Another side to do? {Y/N}";I$:IF I$<>"Y" THEN PRINT "FINI SHED .": GOTO 

310 



PRINT "Change disk &/or side. " : GOTO 

PRINT" Disk FILES Printer. 

PRINT :PRINT " Three columns of program titles are printed to fit into the 
width of disk or cassette cases. 
304 PRINT:PRINT "Insert a disk in dr ive . " :PRINT 
310 INPUT"Enter disk number. >";D$ 
320 INPUT"Enter disk side .>";S$ 
330 PRINT "<< Disk ";D$;" >> << Side ";S$;" >>" 
335 LPRINT "<< Disk ";D$;" >> << Side ";S$;" >>" 
340 GOTO 100 
350 END 
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DICJ ChdPdCtGfS By Rod Cuckow 

This program by Rod Cuckow draws much enlarged characters on the screen and would be great for titles, etc.. in software. 
The characters are so large that only nine characters fit across the screen! As you can see from the program, it takes the letters 
from a string and converts them into large characters. 

10 REM BIG CHR« 

20 REH By Rod Cuckow 1986 

30 REM 

40 REM This prints very large on the 

50 REM screen. 

60 REM 

70 REM „ . 

80 CL9:PRInT "TO RUN ON MEMORY CARTRIDGE INPUT C":PxInT :PRInT 'TO RUN ON DISK I 

NPUT D' 

90 PRInT :PRInT "IP YOU PRESS C WHEN RUNNING ON DISK THE PROGRAM WILL CRASH AF 

TER A WHILE" :PRInT 

100 PRInT "OR PRESS D WHEN RUNNING ON CARTRIDGE NOTHING" 

119 CURSORO, 20: PRInT "THIS INTRO POR YOUR INFORMATION ONLY PRINT OUT ALREADY SE 

NT IS PROGRAM PROPER" 

120 CURSOR 0.10: INPUT X» 

130 IF Xt«"C"ORXS-"c" THEN 170 

140 IF X»-"D"ORX««"d" THEN 180 

150 GOTO 80 

160 DATA 128,64,32,16,8,4,2,1 

170 DEF FN C<X)-aH10C0+(<X-32)*8):GOTO 190 

180 DBF FN C(X)-*HA316+(X*8) 

190 Y1-17:X1-0:CLS 

200 REM 

210 REM This Is the Input string 

220 IP*-" BIG CHRt -PROGRAM* -■■---■»« ********** 

2 30 REM 

240 REM This prints It large 

245 REM 

250 SCREEN 2 , 2 : CLS 

260 FOR 1-1 TO LEN(IP»):At-MID«(IPI,I,l) 

270 X-ASC<At):X-FN C(X):Z-X1 

280 FOR A-X TO X+7 

290 Z-Z+4:P-PEEK< A) -.RESTORE 

300 POR B»0 TO 7 

310 READ D 

320 IF Z>191 THEN SCREEN 1 , 1 :CLS:PRInT "END":END 

330 IF D AND P THEN CURSOR Yl+B*4,Z: PRInT CHRt (236) 

340 REM This adds sound to It all I 

350 REM IF POO THEN SOUND 1 , 3500, 15 : SOUND 

360 NEXT B,A:Y1«Y1 + 24:IF Yl>240 THEN Yl * 17 : X 1 -Xl+34 

370 C0L0RINT<RND<1)*13)+1 

380 NEXT 

390 REH 

400 REM This Ends The Routine 

410 REM - 

420 COLOR 1 

430 CURSOR 100, 160: PRInT "MODIFIED for Disk" 

440 CURSOR 100, 169:PRInT "by or Cartridge" 

450 CURSOR 100,182:PRInT CHRt< 17) ; "Rod Cuckow" :PRInT CHR«C16) 

460 GOTO 460 
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Australian 

Contributors Corner 

and 

Programs 




Martin Schult of South Australia 
has contributed this program for 
our New Zealand magazine, so now 
you can create your own D&D 
character fast. 

Dungeons & Dragons 
Character Generator 







HERE'S ONE FOR ALL YOU DUNGEON AND 160 D J HUES C 40 3 -U 1 MPO$ C75 3 -'D J f1FA-$ C J "2 3 '-D 

DRAGONS PLAYERS. THIS PROGRAM WILL TflEBS C 123 ".DIPFC* C 1 1 3 

GENERATE ALL 10 CLASSES OF CHARACTERS 1?* DIMFD*C 103 :DJf1FE*t 12) :0lriFF*U2J 

, p j F .-. ,- 180 DinFG$(20j :DJnFH-$(20J:DJriFl$C20J 

UP TU LtUh . J30 DjnFJ^Cin :DinFK*C12J :DinFL$C10) 

IT FOLLOWS THE GUIDES AS SET OUT IN ^ FDRU= 1 TO , :R£RDW£$ [u 3 :N£><TU 

THE OFFICIAL P*P ROOK'S AS CLOSELY AS ^ FQRp=1T075 :R£BDpo * cpJ :N£XTP 

SPACE WOULD PERMIT. 220 F0RFf q = ] TO j 2 :READFA* CFAJ :NE?<TFA 

YOU REQUIRE A 3B CAF - I THIS ^ F0RFBifflT0i2 sREADFWCFB) :NE)<TFB 

PRHGRAn AN AFTER Rl . ["HERE 240 FORFC-1 TOl 1 :REAPFC*CFC3 :NEXTF L 

ARE ONLY AROUND 55e BYTES LEFT FREE. ?50 F0J?FD-1 TOJ0 :RE tf D FDSiFD3 :NEXTFD 

10 REM D&D CHARACTERS 260 F0 RFE=1 T012 :READFE* CFE 3 :NEXTFE 

20 RESTORE 270 FORFF = l T0J2 :READFF$ t FF J :NEXTFF 

30 SCREEN2,2:CLS:COLORl,i3,C0,J3)-t255, 280 F ORFG=1TO20 :READFGS CFG3 .'NEXTFG 

» J3 230 FORFH= 1 TO20 :READFH$ C FH ) --NEXTFH 

40 DiriH4C45j:FORH-0TO44:R£ADH^CH) 300 FORF I =1 TO20 :READF I* CF ]J :*EXTF I 

50 IFH=18THENX=55 :X1=45 310 f QRF J= 1 T01 1 .-READFJ-* CF J J ^NEXTFJ 

60 IFH=27TH£NX = =XJ-30 320 F0RFK=1 T012 :READFK3C FK3 .'NEXTFK 

70 CUR30R25+X, 20 + X1 :PR1NTCHR*C 173 ;H*tH 330 F 0RFL = 1 TO10 :READFL* C FL 3 :NEXTFL 

JJCHR4C16J :SOUND1,3000-SD, 15 ^g PR* = -Pt«ss spacebar to eeptl/UJ-e 

80 SOUND0:SD=SD^50 350 m$ __.. n , s c ]p{o 

30 X=X + J2 .'NEXTH 

100 DATA D,U,N,G,E,0 ; N,S, ,8,, ,D,R,A,G 360*110-*='' |-| 1 * c Into Ccontl.. 

.CN^.CH.P.R.AiCT.E.R^^.N.E.R.fi.T 

jJ,0,N, >P,R,0,G,R, A, 11, 370 EA*=" WEAPONS POSSESSED. 

112 L I NEC 52, 135 3-C218, 1353, I :BEEP 

120 L1NE-C2J8, 15?;, J :BEEP 3B2 *SK*'«*' SPELLS KNOWN 

130 LJNE-C52, 1523, 1 =BEEP 

140 L1NE-C52, ]353,1 .'BEEP 330 LL$=" lst leve ! 2nd LeveJ 3rd 

150 CURSOR57, 1 40 :PR I NT "BY. , .Hart in Sch Leve L — — ^^ wtma ^ mmmmm ^ mmmm 

ult SEP^S " 
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CHARACTER SHEET 



NAME: 



RACE: 



CLASS: 



LEVEL: 



ABILITY SCORES: 

Strength: 

Intelligence. 

Wisdom: 

Dexterity: 

Constitution 

Charisma: 

HIT POINTS: 



Armour Class: 
Armour: 
Damage Adjust: 
Reac/Att Adj: 
Defensive Adj: 
Magical Att Adj: 
Open Doors: 
Speech: 



(incl asjust'sl 



SAVING THROWS 



Death 
Ray or 
Poison 



Magic 
Wands 



Paralysis 

or Turn 

To Stone 



Dragon 
Breath 



Rods 

Staves 

or Spell 



vs UNDEAD 

Skel Zom Ghou Wight Mum Spec Vamp 



THIEVES ABILITIES 



Pick 
Pocket 



Open 
Lock 



Find & 

Remove 

Trap 



Move 
Silent 



Hide 
In 

Shadow 



Hear 
Noise 



WEAPONS 



POSSESSIONS 



MAGICAL ITEMS 



MAGICAL SPELLS (inc. Illusion; 

l-i Level 



2nd Level: 



3rd Level: 



CLERICAL SPELLS (inc Druid) 
1st Level- 

2nd Level: 

3rd Level: 
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400 ?7$ = r 1 ] 



410 28$ = " 3 11 

420 71-$ = " 7 3 11 

430 22S=" T 7 3 11 

440 ?3$= J ' T T 7 3 J J 



450 24$=" D T T 



D 



7 



T 



.: J 



7 



25* 



23.* 



33* 



20* 



25* 



30* 



35* 



40* 



15* 10* 



21^ 



27* 



15* 



20* 



33* 25* 



40* 



31* 



460 25$-" D 
11 

470 Tl$^" 30* 

10* 
480 T2$=" 35* 

10* 
430 T3$=" 40* 

15* 

500 T4$=" 45* 37* 

15* 
510 T5S = " 50* 42.* 

20* 

520 3ri;. ; 730 

530 ni=lNTCRNUC- J J*6 1tl 

540 n2=JNTCRNDC-n*6D-M 

550 f13=lNTCRNDC-] J*6} + l 

560 riT=n]tn2+n3 

570 GD=CF1T*103 rRETURN 

580 HH^1NTCRNDC-1 1*1 1 ) 

530 lFf=tfK5THEN580 . 

600 AOtfWDFJ 

610 JFAC=]0THENF>CS="NO ARnOUR..,CHA HR 

J 

620 1FBC=3THENAC*="SH1ELD ONLY 

630 1FF>08THENFCS = "LERTHER BRJ10UR 

640 IFAC = 7THENfiC$ = "STLlDDED LEATHER 8, S 

HJELD 

650 ]FR06THENHC-$ = "R1NG JlflJL 8, SHIELD 

660 JFBC=5THENftC$ = "SCHLE HAIL 8. SHIELD 

670 iF^C=4THENHC$ = *'CHHlN HAIL &, SHIELD 

680 1FHl--3THENAL$= "BANDED HAIL 

630 1FH02THENAC$="PLATE HAIL 

700 JFBC-1TMENRC3 = "PLBTE HAIL 8, SHIELD 

710 IFflO0THENftC$="PLfiTE , bHiE I 

8. HE.: HET 

720 RETURN 

730 SCREEN1 , 1 :{ LOR J ,4 

740 3OSUB530 '.CURSOR 12, I 2 :PR]NT"Pleas-e 

u a M . . . 

"750 L = L + 1 

760 2=INTCRND(-1 J*6Jti 

770 22=1NTCRNDC-1 J*6Jtl 

780 Z3»INTCRNDC-1J*6J+1 

730 21=1+22+23 

800 JFL=1THEN860 

8J0 1FL=2THEN330 



820 JFL=3THEN1070 

830 JFL-4THEN1 140 

840 1FL=5THEN1240 

850 1FL=6TH£N1370 

860 ST=22 

870 JFSK13THEN750 

880 IFST> .1 J ANDST <16THENDA=1 :OD$=" 1 -2 

830 1FST>15ANDST<18THENDA=2:SP=1 :OD*=" 

1-3 

300 1FST=18THENGOTO320 

310 GOT£37i 

320 1J*1003+1 

330 !FSS>0ANDSS<51THENnA=3:SP=2 :OD$="l 

-3 

340 IFSS>50ANDS3<76THENDA=' ; ) :SP = 2 :OD$=" 

1-4 

350 lFSS>75ANDSS<31THENDA=4:SP=3:OD-*=" 

1-4 

360 1FSS>30ANDSS<100THENDA=5 :SP=3 :OJJ$= 

"1-4C1J 

370 JFSS=100THENDA=6:SP=3:OD-$^ J '1-5C2J 

380 GOTO750 

330 CO=22 

1000 j^ST/CO 

1812 1FA<0.57ORA> 1 .5THEN760 

1020 1FC0=15TH£NCP=1 

1030 1FC0^16TH£NCP=2 

1040 1FC0^17THENCP=3 

125Sd JFCO=18THENCP = 4 

1060 GOTO750 

lSdPSd 1H=22 

1080 IFIN=3THEN1$ = ".* Difficult sp«-ech 

- J 1 1 iterate 

1030 IFlN^ANDlbKeTHENl*^'* E&sy .speec 

b but illiterate 

1182 1F1N>5AND1N<3THENI$="* S P e-ech bar 

e [y ! iterate 

1110 1FIN>'8ANDIN<13THENI$ = "-* Literate 

in nat ive tongue 

1120 IF 1N>12THEN1-$^' V * Fluent speech 

1130 GOTO750 

1140 DX=22 

1150 1FDX^3THENDF = 4 :RB=-3 

1 160 IFDX>3ANDDX <6THENDF<3 lRf\=- 2 

1 170 1FDX>5ANDDX<3THENDF=2 :RA=~1 

1 180 JFDX>8ANDDX<15THENDF=0 :RA=0 

1130 JFDX=15THENDF=-1 :RA=0 

1200 JFDX=16THENDF=-2 :RA=1 

1210 IFDX=17THENDF=-3:RH-2 

1220 lFDX=18THEHDF^-4 :RB-3 

1230 3OTO750 

1240 Li=2? 

1250 B-JN/UJl 

1260 1FB<0.67ORB>1.5THEN760 

1270 1FUII <3THENn^=-5 

1280 IFU]=3ThENriR=-3 

1230 lFUI=4TH£N!1A=-2 

1300 IFU]>4ANDU] <8THENPA=-1 

1310 1FUI;>7ANDW] <15THENnFi = 

1320 IF!/JI = 15THENMA=1 
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1330 JFUl=]6THENnA=2 

1340 IFUl=17THENnfl=3 

1350 JFl*JI = 18THENri|=i=4 

13-60 GOTO750 

137^ CP>=22 

1380 L=0 

1330 JFCST+COtJN+DXtUI tCPO<6lTHEN740 

1400 GCSUB5220 

1410 CLS 

1420 Cl-S="" :C2$='" :C3-$ = ,,J ' :l4S="" :C5$= J " 

" :C6$- ,,J ' :C7-$^"" :C8$=" " :C34= J ' :Od$-" " 

1430 IFST> 1 1ANDC0>7THENC1$="(F 3JGHTER 

1440 JFST> 1 1PNDUJJ> 12THENC24-' LpiPLPiDlN 

1450 JFST> 12AND]N> 12BNDC0> I 3THEN~3$-" C 

RJANGEF 

1460 lFDX>.12ANDJN>]i3THENC4S="(T.)H]EF ; ' 

1470 1FST> 12ANDDX> 12THENC5S-" CA JSSP.SSI 

N " 

1480 JFST> 14/ a »NDWl>14BNDDX> 1 4THENC€* = , T1 

COJNK ' 

1430 1FUI]>UTH£NC7S=" (CJLERIC ' 

1500 [FWJ>1 JANDChO 14THENC8$='' tDJRUJD " 

15J0 lFIN>]2THENC3$="(rUAGIC-USER J ' 
1520 IF IN> 1 4ANDDX> 15THENC0$^" C J ILLUSIO- 
NIST " 
1530 SCREEN] , 1 :CLS:COLORl, 13 

1540 PRINT :PRINTTABC10Jj" CLASS SELECT] 

GN 

1550 PRJNTTABOD J" 

1560 CL'RSOPG , 5 : PP ] N T C 1 4 ; C2S ; C3S ; C 4-S ; C5 

-$ ;C6$j'C7-$;C8$3C3-S ;C0$ :BEEP :B£EP 

1570 CURSOR0, I8:PRlNT"Pleas<? sslect yo 

ut eh aT act e t class 

1580 CS-JNKE^S 

1530 IFC*^"" 7HEN1580 

1600 1TCJ* = J "7HEN1620 

1610 IFC$="F"THEN2E 

1620 1FC2-S^ J "THEN1640 

1630 JFi.3-"p"THEN2200 

1-640 IFC3$="' THEN1660 

1-650 IFC$="R"THEN2430 

1660 IFC4$-'" , THEN1680 

J 670 JFC*="T"THEN2600 

1680 IFC5$=""THEN1700 

163.0 1FC$= J, A"THEN2300 

lPQiid 1FC6$- J '"THEN; 

1710 iFC$- J, D"TPEN3. 50 

1720 IFC7$=""TtfEN1740 

1730 1FL$-"C"THlN: ■ 

1740 IFC8$ = " J 'THEN1760 

1750 IFC4="D"THEN3820 

1760 IFC3S=""THEN: 

1P70 IrC$- , Tl"THEN4030 

178^ 1FC0*--' -"TMENI810 

1730 IFC$="1"THEN4340 

1800 GOTO1820 



1810 GOTO1530 

1820 CLS 

]830 PRINT :PRJNT :RRINT 

1840 PRINT "Character level rap9« 

1 tc 5" :PRJNT 

18 50 PRINT "At which level is Char act e 

t to 

I860 INPUT "s-taTi ? ' JT-L 

J870 lFLL>5THENPRlNT"Too high B02022 T 

Ty aga in ■ :GOTO1840 

1880 Y=0 

1830 T--"- 

HP=1N7 CRNDC-1 J*HDJ+1 
1310 HPCYJ^HP 
1320 I FY <>LL THEN 1830 
1330 FORY=0TOLL-J 
1340 HP=HP+HPCYJ 
1350 NEXTf 
1360 HT--HPtSPtCP 
1370 1FHI <-0THEN13S0 
1380 GL' 

HT=LL 
2000 Y=0 
2010 RETUf 
20 REM 
030 .LS 

'.; - ■ : 

: . 
2060 Gl 

■■...-....:- 15 

17 17.. 

r 30J NS T * = " . . 1 3 . , . . 1 5 . . 

....14 16 lb.. 

030 If =5THENST*=", .11 • 

13 14. . 

IFL1 <4THENUE=4 
IB 1FLL>3TM£NUE=5 

:LS : PR INT TAB C7 J ;CN$5" ; -" . 
•P PRINT :PRlNTPi^ 

: 7 PRINT :PRlNT"Please relet to P a g e 
H the P 1 ayersHan dbooK \or a detail 
\es ct i p t i on oI/out abilities. 
2150 CURS0R5,22 :RR1NTPR$ 
3160 IN$=INK£YS : 1 F J NS- 1 "' THEN2160 

7 GOSUB5050 
2180 GOSUB4530 
2130 GOT-05380 
2200 REM PALADIN SKILLS 
2210 CN*« J, PALADJN" :MD=]0 
2220 GO5UB1820 
2230 IFLL-17HEN264='*74 
2240 JFLL=2THEN26*=-?8$ 
2250 1FLL-3TMEN26S=214 
2260 JFLL=4THEN26$=?24 
2270 JFLL=5THEN26S=?3$ 

2280 JFLL<3TNENST$-", .14. ... 16 15 

17 17.. 

2230 JFLL-30RLL = 4THENST3=", . 1 3. ... 15. . 

.... 14 16 16. . 

2300 1FLL=5THENST3=". . 1 .1 .... 1 3 12 
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13 14.. 

2310 GOSUB580 

23*20 IFLL<4THENWE=3 

2330 IFLL>3THENW£=4 

2340 CLS:PRJNTTflBC7J ;CN$j" ■' ' 

2350 PRIM :PRJNTnJ« 

2360 PR JNT :pR 1NT"P lease TejeT ic pages 

22 8. 24 ol the PlayeTs Handbook f ot 
a detai led des- crip lion o \ your ab » 1 
it i e s , 
2370 
2380 
2330 
2400 
2410 
2420 
2430 
2440 
2450 
2460 



24 70 



OJRSOR5;22:PRINTPR$ 

IN$-JNK£Y3 : IF JN* = ,,J " THEN2380 

GOSUB5050 

GOSUB45S0 
UB4700 

GOTO5380 

REfl RANGER SKILLS 

CN$-"RANGER" :HD = J0 

GOSUB 1820 

IFLL<3THENST$=". . 14. . 
...1? 17. . 

JFLL=30RLl=4THENST$=" 
14 16 16. . 



16. 



13, 



248-0 JFLL=5THENST*=" . . 1 1 . . . . 1 3 . . . . 

13 14.. 

2430 GOSUB580 

2500 JFLL<4THENW£=3 

2510 iFLL>3THENUE*4 

2520 CLS:PRJNTTABC7J jCNSj" '•- " 

2530 PRINT :PRlNTni^ 

2540 PRINT :PRlNT"PIease reteT to p 

24 8, 25 ol the Play«Ts Handbook 
a detailed des cr ipt ion ol your 

it ■ es . 

2550 CURS0R5,22 :PRJNTPR3 
2560 iNS^lNKE^S : ] F J N$ = " " THEM2560 

2570 3OSUS5050 

2580 GOSUB 4 530 

2590 GOTO5380 

2600 FEF THIEF SKILLS 

2610 CN$=" THIEF" -'HD=6 

2620 GOSUB1820 

2630 1FLL<5THENSTS=". .13 14 

16 15. . 

2640 JFLL^5THENST^-". . 12 12. . . . 

15 13. . 

2650 1FLL=1THENT6$-T1$ 

2660 JFLL=2THENT6*=T2$ 

2670 JFLL=3THENT6S=T3S 

2680 IFLL=4THENT6$=T44 

2690 1FLL=5THENT6$-T5$ 

2700 AC=8+DF :piC-$ = "LEHTHER ARJIOUR 

2710 CLS =PRINTTHBC7J ;CN$J" :-" 

2720 PRINT :PRlNTni$ 

2730 PRINT :PRlNT"Please t«| € t to P 

26-28 ol the Players Handbook 

a detailed des- or ipt ior ol your 
it i e s . 

2740 CURSORS, 22: PR JJMTPR* 
2750 INS^1NK£^$ : J F I N-$ = " " THEN2750 





2880 




2830 




2300 




2910 




2320 




2930 


. . 15 


.... 




2340 


15. . 


.... 




2950 


..12 


2360 




23.70 




2380 




2330 




3000 




3010 




3020 


ages 


3030 


lor 


3040 


ab i 1 


3050 



.. 12 

. . 11 





3180 




3130 




3200 




3210 


ages 


3220 


J or 


3230 


abi 1 


3240 




3250 




3260 




3270 



2760 GOSLJB5050 
2770 GOSUB4530 
2780 GOSUB4730 
2730 GOSUB4300 

2800 CLS:PRINTTABC71 ,*CN$ J" '-" 
28J0 PRINT :PRINTEA$ 
2820 FORA^1TO50 :N£XTA 
2830 PRINT :PR1NT 

2840 PRINTTABC5J J"2 DAGGERS" :B£EP 
2850 PRJNTTHBC53 ;" SHORT SUORD" -'BEEP 
2860 PRINT TAB C53 ;"BLOU PIPE 8. 6 DARTS" 
:BEEP 
2870 CURS0R5,22:PR1NTPRS 

IN$=INKET-$ : 1F1N-$ = ""THEN2880 

GOTO5430 

REM ASSASSIN SKILLS 

CN$ = "ASSASSIN" :H0=6 

GOSUB1820 

IFLL<5THENST-*=". .13 i4 12 

. .16 15. . 

JFLL-5THENST$="..12 12 ,11 

. .15 13. . 

1FLL-1THENT64-T14 

JFLL=2THENT6$=T2* 

JFLL=3THENT6S=T3-£ 

1FLL=4THENT6$-T4$ 

1FLL=5THENT6^=TS$ 

lFLL<4THENUI£-3 

IFLL>3THENUE=4 

A08+DF --AC-*- "LEATHER ARHOUR 

CLS:PRINTTAB(73 jCN* I" :- J " 

PRINT :PR]NTM$ 
3050 PRINT :PRINT"P lease refer to pages 

28-30 ol the Players Handbook lor 

a detailed des- ct ipt ion ol yotiT a b 1 I 
it ies . 
3060 CURS0R5,22 :PR]NTPR4 

I N*= I NKET$ : I F I m=" " T hE^2Sd?!d 

GOSLIB5050 

GOSUB4530 

GOSUB 4 730 

GOSUB4300 

GOTO5380 
3J30 REfl nONK SKILLS 
3140 CN*="nONK" :HD=6:DF=0:SP^0 

GOSUB 1820 

1FLL<5THENST-$^ J '. .13 14 12 

16 15.. 

3170 1FLL=5THENST$ = ".. 12 12 11 

15 13. . 

1FLL = 1THEN?6$ = 21$ :AO10 

JFLL-1 THENT63=T1$ :SA*="NIL 

IFLL=2THEN?6$-22$ :AOS 

1FLL=2THENT5$-T2$ :SA-$ = J 'NIL 

!FLL=3THEN26$-23-$ :RC = 8 

1FLL=3THENT63=T3$ :SA*="A 

JFLL^4THEN263=?4-S :AC=7 
]FLL-4THENT6$ = T4*:SA*-"A 8- B 
IFLL=5THEN26S=25-$ :AC=7 
IFLLf5TH£NT64 = T5$ :SA$="A,B 8. C 



3020 
3080 
3030 
3100 

3110 
3120 



3150 
3160 
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3280 AC$="N0 ARflOUR. . . Coot -even a shie 

ldSS5J 

3230 CLS:PRINTTPB(7J ;CN$j" =- J ' 

3300 PRINT rPRINTJIlS 

3310 PRINT -PRINT'TUas-e Te feT to pages 

30-32 of -the PlayeTs Handbook ioT 

a detailed des- cTiption of your ab l 1 
it ies . 
3320 PFJNT -'PRINT "Special ftb ; I it ies ai e 

3330 CURS0R5,22."PRINTPR-$ 

3340 IN$=INKEY4 : J F J N4^" " THEN3340 

3350 GCSUB5050 

3360 GOSUB4530 

3370 GOSUB 4 700 

3380 GOSUB4730 

3330 CLS:PRINTTAB(7J ;CN*j" :- J ' 

3400 PRINT -"PRINTED 

3410 FURP^l TO50 :NEXTP< 

3420 PRINT .'PRINT :PRIMI TPBC53 j "2 DAGGER 

S" :BEEP 

3430 PRINTTABC5J J "HAND AXE":B£EP 

3440 PRlNTTFtBC5J ;"STAFF" :B££P 

3450 PRINTTABC53 l"SPEf\F" '-3EEP 

3460 CURS0R5, 22 : PR IN TPR^ 

3470 IN$=INKEY$ : 1 F 1 N$ = " " THEN3470 

3480 GOTO54S0 

3430 REV CLERIC SKILLS 

3500 CN$="CL£RIC" :]HD = 8 

3510 GOSUB 1820 

3520 GOSUB580 

3530 1FLL=1THEN26$=21$ 

3540 1FLL=2THEN26S=22$ 

3550 IFLL=3THEN26-$=23S 

3560 IFLL=4THEKZ6S=24$ 

3570 IFLL=5THEN263=25-$ 

3580 IFLL <4THENST*=" . . 10 14 13 

16 15.. 

3530 IFLL>3THENST4-" . . .3 13 12 

15 14. , 

3600 IFLL- 1TMEKL 1=3 

3610 IFLL=2THENL1=4 

3620 1FLL=3THENL1=4 :L2=1 

3630 IFLL=4Th»ENLl=4 :L2*3 

3640 IF'- 1 -5TMENL1-5 :L* 

3650 CLS:PR1NTTP-BC73 JCN*;" :-" 

3660 PRINT :PRlNTni-$ 

3670 PRINT :PRlNT"Please refer to page 

20 of the P I ayer sHandb o ok 1 ot a detail 

■e d d-esoTiption olyouT abilities.. 

3680 CURS0R5,22 :PR1NTPR$ 

3630 IN-$=INK£Y-$ : J F 1 N4=" J ' THEN36S0 

3700 GOSUB5050 

3710 GOSUB4590 

3720 GOSUB 4700 

3730 GOSUB5610 

3740 CLS:PR1NTTABC7J jCN-*j" :-" 

3750 PRINT :PR1NTEA* 

3760 PRINT :PR1NTTRBC5) ;"CLUB J ' :B£EP 



3770 PR1NTTABC5J ;"STP.FF" :BEEP 

3780 IFLL^5TN£NPRlNTTPB(5j j"HBHnER" '-BE 

£P 

3730 CURSORS , 22 :PR IN TPR-* 

3800 IN4^1NK£Y<$ :IF1N$ = ""THEN3800 

3810 GOTO5430' 

3820 R£Ji DRD1D SKILLS 

3830 CN-$="DRUID J ' :HD=8 

3840 GOSUB 1820 

3850 IFLL<4THENST£= J '. .10 14 13 

16 15. . 

3860 1FLL>3THENST*=". .03 13 12 

15 14. . 

3870 AC=8+DF :1F/K>1 0THENAOI0 

3880 AC4 = J "L£f)THER ARHOUR 

3830 IFLL=1THENL]=2 

3300 IFLL=2THENLl-3 :L2-1 

3310 IFLL=3TH£NL1-3:L2=2:L3=1 

3320 1FLL=4THENL1=4 :L2=3 :L3-2 

3330 IFLL^5THENLi=5:L2-4 :L3-3 

3340 CLS:PRJNTTPiBC73 JCN^ ;" :-" 

3350 PRINT :PRJNTrU« 

3360 PRINT :PRINT J 'P lease relet to pages 

20 8. 21 o) "the Players Handbook f ot 
a det ailed des- ct i pt ■ on of your ab i 1 
it ies. 

3370 CURSORS, 22 :PRINTPRS 
3380 IN-S^INKE^-S : 1 F J N$- " " THEN3380 
3330 GOSUB5050 
4000 GOSUB4590 
4010 3OSUB5880 

4020 CLS:PR1NTTABC7J ;CN$ ;" :-■»' 
4030 PRINT :PRlNTEf& 
4040 PRINT : PRINT TAB C5J j"2 DAGGERS 
4050 PR1NTTABC5) T'STAFF 
4060 CURSOR5,22 :PRINTPR4 
4070 IN$=JNK£Y$ :IFIN^=""THEN4070 
4080 GOTO5430 

4030 REfl J1AGIC-USER SKILLS 
4100 CN$ = "nf)GlC-US£R" -*HD=4 
4110 GOSUB 1820 

4120 AC=10 + DF 'ACS^'NO ARHOUR . . , (.HA HAS 
o o o j 

4130 ST$=". . 14. ... 1 1 13 15. 

12.. 

4140 IFLL=1THENL1=4 
4150 IFLL=2TH£NL1=4 :L2=2 

4160 1FLL=3THENL1=5 :L2=3:L3 = 1 

4170 1FLL=4THENL1=5:L2=4JL3=2 

4180 1FLL=5TJHE'NL1=6 :L2-5 :L3 = 4 

4130 CLS:PR1NTTABC7J jCN4j" :- " 

4200 PRINT :PR1 NTfl !■$ 

4210 PRINT :PRlNT"Please leter to pages 

25 8. 26 of the PlayeTs Handbook f ot 
a detailed des- criptTon of yoiir abil 
it ies . 

4220 CURS0R5,22:PRINTPR$ 
4230 1N4^1NK£-T5 : I F lN-$ = " " THEN4230 
4240 GOSUB5050 
4250 GOSUB4530 
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4260 GOSUB6150 

4270 CLS:PRINTTAB(7JjCN$ j" :- J ' 

4280 PRINT :PR1NTEA$ 

4230 PRINT :PRINTTABC5J ;"2 DAGGERS 

4300 PR1NTTAB(5J ,*"STAFF 

43JJ3 CURS0R5,23:PRINTPR$ 

4320 JNS-1NKEY4 : IFIN-$ = " " THEN4320 

4330 GCTO5430 

4340 REM ILLUSIONIST SKILLS 

4350 CN$*"1LLUST0N1ST" :JHD = 4 

4360 GOSUB182J3 

4370 BOI0 + DF :flC$="NO ARMOUR. ,, (HA HAS 

2 5 5 J 

4380 ST-**". . 14 II 13 15. 

12. . 

4330 1FLL=1THENL1=3 

4400 1FLL=2THENL1=4 

4410 1FLL=3THENL1=4 =L2=2 

4420 1FLL=4THENL1=5:L2=3 

4430 IFLL-5THENLJ-6 :L2 = 4 :L3=2 

4440 CLS:PRINTTAB(7J jCN*;" ■-" 

4450 PRINT :PRINTni$ 

4460 PRINT :PRlNT J, Please tH«t to page 

26 of the P I ayersHandb ool< jot a detail 

e d descr ipi i op o fyouT abilities.. 

4470 CURSOR5,22:PRINTPR$ 

4480 IN-$=1NK£T5 : IF IN$-" J ' THEN4480 

4 430 GOSUB5050 

4500 GOSUB4530 

4510 GOSUB6420 

4520 CLS.'PRJNTTBBC73 JCN^J" :-" 

4530 PRINT :PRINTEA$ 

4540 PRINT :PRINTTAB(5J ;"2 DAGGERS 

4550 PRJNTTABC5J ;"STAFF 

4560 CURS0R5,22:PRINTPR-$ 

4570 W$=l NKET3 : J F I N*= '' " THEN4570 

45S0 GOTO5430 

4530 CLS:PRINTTAB(7) ;CN*;" :-" 

4600 PRINT :PRJNT" SAUING THRO 

VJ TABLE 

4610 PRINT .-PRINT-DEATH I IPARAL^SI 

S\ | RODS 

4620 PRINT "RAT ORlHAGICl OR TURN IURAG 

ON|STAUES 

4630 PRlNT"POISON|UANDS|TO STONE IBREA 

THIOR SPELL 

4650 PRINT :PR1NTST4 

4660 CURS0R5, 16 :PPINT'Fot any other fo 

Tms o) attack, your DH will in! 

orm you of the TequiTed Sawing 

TKt ou. 

4670 CURS0R5,22:PR1NTPR* 

4680 1R$=INK£^S : I F 1 N$ = " " THEN4680 

4630 RETURN 

4700 CLS:PRINTTABC73 JCN^J" ■-" 

4710 PRIMT:PRJNT" PALADIN/CLER J C/H 

ONK vs UNDEAD 

4720 PRINT :PRINT"SKEL 20J1 GHOU U1GT UR 

aj nun spec uAtfP 



4730PRim""""« ■■ 

4740 PRINT :PRINT26$ 

4750 CURS0R5, 16 :PRINT"Fot any otheT at 

lack from an -'Undead-'., youT D 

J1 u i 1 I infoTjn you of the Tequi 

red « coT-e , 

4760 CURSORS, 22 : PR IN TPR-* 

4770 IN-$=INKEY4 : 1 F INS*" " THEN4770 

4780 RETURN 

4730 CLS:PRINTTAB(7J jC^j" :-" 

4800 PRINT :PRJNT/' THE IUES/ASSASS INS/ 

JIONK ABILITIES 

481-0 PRINT :PR1NT J ' I 1FJNDM 

•|HID£ | 
4820 PRINT" PICK I OPEN |REJ10U| IIOUE I I 
N | HEAR 

4830 PRINT J 'POCKET|LOCKS|TRAPS|SlLNT|SH 
ADO| HOISE 
4840 DDTtlT "m | | ,1 |j I T 

4850 PRINT :PRINTT6^$ 

4860 CURSORS, 16 :PR1NT"Fot your chance 
of sue cess on other ab i I it i e s 

you may have, please consult y 

our DM. 

4870 CURS0R5,22 :PR1NTPR$ 
4880 lN-$-=INKEY-$ : I F im = n " THEN4880 
4830 RETURN 

4300 CLS:PRINTTABC7J ;CN* j" -•-" 
4310 PRINT :PRINTnC$ 

4320 PRINT"Depend l ng or the race uhieh 
you chosejyou have the following adju 
stments to youT special abilities,.,, 
4330 PRINT :PR1NT" | |F1NDM 

IHJDE I 
4340 PRINT" PICK I OPEN jREHOUlnOUE | 1 
N | HEAR 

4350 PRINT"POCKET| LOCKS| TRAPS iSILNTlSH 
ADO I NOISE 
4360 PR 1 N T <: nHBalHiMHlMHH)^^lM 



4370 PRINT"D 



+ 12* t]5* 



-05* 



+ 05^ + 10* 



£■=£ 1 4 G=Gno 



4380 PRINT :PR1NT"E + 5* 

5-* + 10* + 05* 

4330 PRINT :PR1NT J 'G - 

5* t05^ tl0jr 

5000 PRINT :PRlNT"D=DuaT f 

me 

5010 PRINT"No adj for Humans. 

5020 CURS0R5,22 :PRINTPR* 

5030 IN$=INK£Y$ :JFJN4="" THEN5030 

5040 RETURN 

5050 REfl CHARACTER INFO 

5060 CLS:PRINTTABC7J jCN* j J :-" 

5070 PRINT :PRINT"StaTt ing Level 

*';LL 

5080 PR1NT"At'idout Class , "jACj' 1 

!• AC a 1 t e ady 



38 



5J330 PRINT"De lens i ve Adjust J ';DF-," 

h adjusted 
51J30 PRJNT J, H?i Points " jHT 

5J10 PRINVDarrtage Adjust " JD.B 

5120 PRINT"React i on'Mtack Adj . . " ;RA 
5J30 PRlNT'Tlag ">cal Attack fldj . . , ■" ,W 

5140 PRINT"Open Doors on {66)... " ;OD$ 

5150 CURSOR0, 12 :PRlNT"You have a total 

o I" jGDj" Go Id Pieces 
5J-50 PRINT"to your naine with uhieh to 
purchase extra items &, provisions. 

5170 PRINT -*PRJNT"Tour arpiouT consists 
o f :- 

5180 PRJNT--PRJNTTABC4J ;AC$ 
5330 CURS0R5,22 :PRINTPRS 
52J30 JN*=JNK£Yj$ : 1 F I N$- " " THEN5200 
5210 RETURN 
5220 SCREEN! , 1 :CLS 
5230 COL OR 1 , 13 

5240 PRJNTTABC8J ;* YOUR ABILITY SCORES 
fiRE •■- 
5250 PRINT T ABC 7 J J" 



5260 PRJNT .-PRINT" STRENGTH " 

JST J'V" ;SS :B£EP 
5270 PRINT :PRJNT" INTELLIGENCE ' 

; JN,'" * j ' :BE£P 

5280 PRINT :PR1NT" UIJSDOM " 

JWJ --BEEP 

523£ print :prjnt" dexterity " 

;dx:beep 

5300 print :prjnt" constitution " 

J CO :BEEP 

5310 PRINT --PRINT" CMBRISfiM ' 

;CH:BEEP 

5320 PRJNT --PRIN1 10BL3J ; 14 
5330 PRINT: PR INT "Please copy these ont 
o youT character sheet, as they u i T 1 r 
ot appe aT again, 

5340 PRINT "Once you have done thai 
:PR1NT :PR1NTTABC5J ;PR$ 
5350 IN^-INKEY^ : JFIN*=" " THf 
5360 CLS 
5370 RETURN 
5380 CLS 
5330 PRINTED 
5400 C^C+1 

5410 U=JNT(RND(-1 J*40)+i 
5420 X^5:Y=5 

5430 CURSORX,YtC :PJ?INTWE$ llJ j :BEEP 
5440 IFC=UETHEN5360 
5450 GOTO5400 
5460 CURS0R5, 22 :pR IN TPR-$ 
5470 1N$=INK£YS :JF IN4 THEN5470 
5480 C=0 
5430 CLS 
5500 PRINT" J1JSC POSSESSIONS 



5510 ' 



5520 P=INTCRNDC-n*75J + l 

5530 X^5:Y=5 

5540 CURSOR*, Y + C ■' PR I NTPO-$ CP J :B££P 

5550 JFC=10THEN55?0 

5560 GOTO55J0 

5570 CURSORS, 22 : PR IN TPR$ 

5580 IN$^INKEY$ :JF I N$^ ' " THEN5580 

5530 C=0 

5600 GOTO6630 

5610 CLS:PRINTTFiB(7J ;CN^ j" :-' 

5620 PRINT :PRINTSM 

5630 PRINT :PR1NTLL* 

5640 OC+1 

5650 FA=lNTCRNDC-i;*l2Jt 1 

5660 X=0:T=7 

5670 CURSORX,Y + C :pRJNTFfV*(FAJ :B£EP 

5680 IFC=L1THEN5700 

5630 GOTO5640 

5700 C = 0: 1FLL<3TH£N5840 

5710 C=C+1 

5720 FB-INuRNDC-1 J*J2J + J 

5730 X-13:Y-7 

5740 CURSORX , Y 1 C :PRJ NTFB-4 [ FBJ :B£EP 

5750 IFC=L2THEN5770 

5760 G0T057:. 

5770 C=0: 

5780 C=Ci : 

5730 FC-lNliRNDi-1 3*1 . • 

5800 X^25 :Y=7 

58 10 CURSORX , Y + C :j >R I N T F C4 CFC 3 :BE£P 
1FC=2THEN5840 

5830 GOTO5780 

58^0 C'jRS0R5 J 22 :PR1NTPR4 

iN^--: IKEYS : I F I N4= J ' ■" THEN5850 

5860 C=0 

RETURN 

5880 CLS :PRJNTTABC73 JLN^i" :-" 

5830 PRINT :PRINTSK« 
1 PRINT :PRINTLL« 

59J0 C=C+] 

5320 FD=INTCRNDC-I3*10J+1 

5330 X=0=Y=7 

5340 CURSORX, Y+C :PRINTFD-$ C FD 3 :BEEP 

5950 1 FC-l 1 THEN5970 

5960 GOTO5310 

5970 C = 0: JFLL^l THEN6110 

5980 C=C+J 

5330 FE=JNT(RNDC-1 3*123+1 

6000 X-J3:t=7 

6010 CURSORX, Y + C :PR1NTF£$CFEJ -'BEEP 

6020 IFC^L2THEN6040 

6030 GOTO5980 

6040 C-=0: JFLL-2THEN61 10 

6050 C^C+1 

6060 FF^JNTCRNDC-1 3*123+1 

6070 X-25:Y-7 

6080 CURSOFX,Y+C:PRINTFF$(FF3 :B£EP 

6090 IFC-L3THEN61 10 

6100 GOTO6050 

6JJ0 CURS0R5, 22 :PR IN TPR-$ 
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6170 IN$-lNKEY-$ :iFlN$=""TH£N6120 

6 J 30 L=2 

6140 RETURN 

6150 CLS :PRINTTABC71 ;CN$ j" :- J1 

6160 PK1NT :PR1NTSK$ 

6170 PRINT :RR1NTLL$ 

6180 C = C+I 

6JS0 FG=1NTCRNDC-1 U20J + 1 

6200 X=0:T=7 

6210 CURSORX, YtC:PRJNTFG*CFG) :B££P 

6220 IFC=L1THEN6240 

6230 GOTO6180 

6240 C-0:]FLL=1TNEN6380 

6250 C-C+l 

6260 FM=JNTCRMD(-n*2i3J + J 

6270 X=13:Y=7 

6280 CURSORX, Y+C :pRJ NTFHS CFH ) :BE£P 

6230 IFC-L2THEN6310 

6300 GOTO6250 

6310 O0: IFLL=2THEN6380 

6320 C=C+1 

6330 FJ-JNTCRNDC-1 J*20J+1 

6340 X-25:Y=7 

6350 CURSORX, Y + C :PRINTF1$(FI J :B££P 

6360 IFOL3THEN6380 

6370 GOTO6320 

6380 CURSORS, 22 :PR1NTPR$ 

6330 lN$^JNKEY-$ : J F J N$ = " " THEN63S0 

6400 C=0 

6410 RETURN 

6.420 CLS :PR1NTTABC71 ;CN* j" s- 

6430 PRINT :PRINTSK^ 

6440 PRINT :PR1NTLL$ 

64-50 C=C+1 

6460 FJ-JNHRNDC-1 J*ll J+l 

6470 X=0 :Y=7 

6480 CURSORX, Y + C :PR1NTFJ-$CFJ 3 :B££P 

6430 JFC-L1THEN6510 

6500 GOTO6450 

65J0 C=0: JFLL<3THEN6650 

6520 C^C+1 

6530 FK = 1NTCRNDC-1 J*12!) + 1 

6540 X-13:Y-7 

6550 CURSORX, Y+C :PRINTFK4 CFK J -'BEEP 

6560 JFC-L2THEN6580 

6570 GOT 06520 

6580 C=0:]FLL<5THEN6650 

5530 C^C+] 

6600 FL=INTCRNDC-1J*10)+1 

6610 X=25: Y -7 

6630 CURSORX 5 Y+C :PR1NTFL-$CFL3 :B£EP 

6630 IFC=2THEN6650 

6640 GOTO6530 

6650 CURS0R5,22 :PR1NTPR4 

6660 1N«-=1NK£Y$ : I F IN$ = " " THEN6660 

6670 C=0 

6680 RETURN 

6630 CLS:C0L0R15, 1 :CURS0R3j7 :PRJNT"J H 

OPE YOU LIKE YOUR CHARACTER-" :PR1NT :PR 

lNT-"Do you uish to generate another? ( 



Y^NJ 

6700 JN$=JNK£Y$ : IF W*=" " THEN6700 

6710 JF1N$= J, ^"THEN730 

6720 1FIN$="N"TH£N6730 

6730 CURS0R3,15 :PRINT"Enjoy youT game 

- Bye Jot nouSS-" 

6740 PRINT :PR1NT :PR1NT :£ND 

6750 DATA BATTLE AXE, THROWING AXE,SWOR 

D SHORT, CLUB ..DAGGER, BLOW P IPE, HAJIflER, H 

ORNING STAR, SWORD BROAD 

6760 DATA CROSSBOW LIGHT, SWORD LONG,SC 

Ifll TAR, SPEAR, SWORD TWO-HANDED 

6770 DATA SHORT BOW, SWORD SHORT, DAGGER 

,PICK,HACE,SC1HITAR,B0 ST 1 CK , FAUCHARD, 

HORNING STAR, SPEAR, TR JDENT , RANS£UR,SC1 

flj TAR, SWORD LONG, SWORD SHORT, SWORD BRO 

AD 

6780 DA T A BATTLE AXE , SWORD BASTARD., "UOU 

LGE, SLING SI ONE, SLING BULLET, CROSSBOW 

L I GHT , HALBERD, BARD 1 CHE , DAGGER", DART 

6730 DATA BELT, LEATHER BACKPACK , CANDLE 

, PINT OF ALE, HOLY SYJ1B0L , ROPE 50 ft, SAC 

K SHALL, BELT POUCH, TORCH 

6800 DATA PACK OF TOOTH PI CKS, MIRROR S 

HALL, POLE 10 U , SACK, ROPE 20 i t , CANDLE ,L 

ANTERN, BACKPACK, PINT OF ALE, SACK 

6810 DATA LARGE WOODEN CHEST, FLASK OF 

OIL, PINT BEER, ROPE 30ft, POLE 10ft, HANK 

ERCHIEF.CLOUE OF GARLIC, PINT WINE 

6820 DATA BELT POUCH, BELT , SACK , SACK , LA 

NTERN,HOLY SYHBOL , FLASK OF OIL, WATER S 

KIN, IRON SPIKES, TORCH, SHALL CART 

6830 DATA HflT , ROBE , STONE PICK, J WEEKS 

RATIONS, ROPE 40 U , TORCH,B£LT, TORCH, SAC 

K, WATER SKIN, IRON SPIKES 

6840 DATA CAP, ROBE , CLOAK , BEL T , BOOTS hi 

GH,CARLIC BUD, WOLUESBANE, GIRDLE BROAD, 

WAGON, PJNT MEAD, BELT, CANDLE WAX, FLASK 

OF OIL, TINDER BOX, SACK LARGE 

6850 DATA PINT OF ALE , SHALL WOODEN CHE 

ST, LEATHER BACKPACK,! UEEKS RATIONS, QU 

1UER 12 ARROWS, QUI U£R J0 BOLTS,QUIUER 

20 BOLTS, LANTERN BULLSE YE , BEL T , P 1 NT OF 

BEER 
6860 DAJABless , Command, Create Water, Cu 
re L/Wound , Dete et Evil, Detect Jla g ; c , L. i 
grit, Remove Fear, Resist Co Id, Evil Prote 
ct,PuTify Food , Sanct u st y 

6870 DATACbant ,Det ChaTm,F;nd Traps, Ho 
Id Per ^ on , Res < st Fire,Slou Poison,Snak 
e ChaTm,Au9UTy,Silenee,Tall< to An<m,Kn 
ouj Align., Hammer 

6880 DATAAn i mate Dead,Cont Light, Praye 
T,Dispel Hagic, Feign Death, Cure Diseas 
e , F 1 n d £)boect,Talk to Dead,Rem Cu r s e , C 
ure BlindjCreate Food 

6830 DATAJalk to An im, Put My Wat er , Pas 
s , Ent an g 1 e , F aeT i e FiTe,F>nd Animals,De 
tect Hag <c, Detect Pits,lnvisible,Shill 
e 1 agh 



40 



6300 DATABaTksk ■. p,Mak« Wl ^ > Fe i gn De a 
th,FiTe TTap,Heai Metal, Find PlantjHak 
« F lame j Tt i p , War p Uood,Heal Wounds, Cha 
rm PeTson , Obs cuTement 

6910 DATnT-re-e, Slope Sh ape , S;i ar e ,PyT ot e 
chn ic^jPIani GTouth,Hold An i ma I , Cut e D 
isease,Call Insects,FiTe PToteet,Neut 

Poison, G i 1 ls,Lightn^n9 

6320 DMA Push,Shie IdjMend ing ,Li9ht ,£n 
I ar ge , Ho I d PoTtal,ETase,Sleep,Jump, Ten 
seTs D i so j ChaT m PeT s on , Fe atheT Fa 1 IjFt 
iends , UJt ite , Sp i deT Climb 5 Read Hag 1 c 
6930 DATAfles-sagej.Evi 1 Pt ote ct , Burn Han 
ds j J dent i Jy 

6910 DATA Ueb, StTength, Levitate ,£SPjSc 
ar^, Fools Gold ? Find Ob je ct , Sh at t er , Hit 
tot Image, Hagic Mou th j L i ght , DaT kness , F 
OTget.KnockjRope Tt i ck , U i-zaT d Lock 
6350 DATAlnu is ib le , St ink C i ou d ,P>r o te c 
hn i c , Leos Jr ap 



6360 DATA Feign Deat h , F I y , Haste , F It eba 
II, Dispel Magic, Flame At t ou,Sl ou, Gus t 
"UindjHold PeTson i Jn fTavision,Suggestlo 
n, Tongues ,Gi 1 I s , Le os Hut , Invisible 
6370 DA»TABl ink , C I a i T^oyance,Phant Fotc 
e^Evil PTotectjLightning 
6380 DATAAud G I amer , Chan 9e , Co I ot Spray 
, Lights, D aT kn ess , L 1 9ht , Fog., Re f lect i on, 
Hypn ot i sm j Ph ant FoTce,Det Illusion 
6990 DATABlindness,BluTT,Deafness,Fo9 
Cloud, Jnvis ib 1 e , M >tt ot Image, UentT i I s j 
Magic flout h , Hi s d i Te ct , Det Hag ic, Hyp Pa 
tteTn,Phant FoTce 

7000 DATARope Tt ] ck , Suggest , Spe ct t a I , P 
aTal i-ze,Non-detect, Invis ib le,FeaT , Cont 
Light, Cont DaTk,TeTTain 
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HELICOPTER 



By Jan Jacobson (C) 1986 




1 REM ******* * * # ** t t * * K* * tt ** * ■:* * * * M 

20 REM *** *** 

30 REM *** HELICOPTER *** 

40 REM *** *** 

50 REM ***BY JAN JACOBSEN CO 1986*** 

60 REM *** iff 

70 REM ***** *** * 1 I fc* 1 * . 1 1 » ii * t :* t * *** ** 

80 SCREEN 2,2: COLOR 1 , 15, , 15 : CLS 

90 RESTORE 

1 00 REM L INE (57, 56) - ( 207 , 1 32 .» , 1 , B 

1 1 REM COLOR 1,2 , C 60 , 56) - ( 200 , 132) , 15 

120 R=R+1 

130 READ X,Y 

140 IF X=0 THEN READ X, Ys'LINECX, Y)-CX, Y) 

150 IF X=-l THEN 260 

160 LINE-<X,Y) 

170 GOTO 120 

180 DATA 0,0,86, 126, 104, 124, 140, 109, 152, 100,0,0, 156,96, 164,90, 174,86,0,0, 180,84, 

188,81, 192,76,0,0, 185,73, 192,60, 184, 62, 176, 76, 156,84, 152,85, 148,85, 138,85,0,0 

190 DATA 114,90, 108,92,104,94,100,96,96,99,92, 104,89, 109,88,111,84, 113,81, 116,80 

, 120,84, 124,92, 126,96, 126,0,0 

200 DATA 1 12,94, 132,92,0,0, 138,89, 140,87, 136,83, 128,85,0,0, 124,85, 1 18,86, 123,84, 

0,0, 182,89, 186,87, 176,82, 172,85, 182,89,0,0, 163,82, 160,80, 164,78, 168,80,0,0 

210 DATA 191,68, 182,84, 184,85, 193,68, 191,68,0,0, 104,94, 112, 100, 114, 118,0,0, 113, 1 

05 , 1 40 ,94,1 40 , 1 08 , , , 1 23 , 94 , 1 27 , 97 , 1 27 , 1 00 , , 

220 DATA 90, 125, 127, 113, 127, 115,128, 100,0,0, 116, 108, 116, 114, 126, 110, 126, 104, 116, 

108,0,0, 184,75, 184,76, 186,78, 186,74,184,73,0,0, 112,94, 118,86,0,0 

230 DATA 94, 102, 95, 105, 89, 1 10, 89, 108, 0, 0, 96, 106, 100, 108, 104, 108, 100, 117,91,111,9 

6 , 1 06 , ,0,1 02 , 95 , 1 04 , 97 , 96 , 1 03 , 96 , 99 , ,0,1 08 , 99 ,112,1 02 , 1 08 , 1 05 , 1 04 , 1 06 , 1 00 , 1 05 , 

108,99,0,0 

240 DATA 152,87, 154,89, 156,92, 156,96,0,0, 144,91, 154,89,0,0, 144,87, 148,87, 152,86, 

176,78, 180,76, 188,74,0,0, 184,65, 190,64,0,0 

250 DATA 122, B2, 171, 102, 167, 105, 132,90, 128,86, 122,84, 122,82,72, 104,67, 100, 112,84 

, 122,82,80,66,82,62, 118,78, 127,82, 176,62, 180,65, 136,82, 122,82,-1,-1 

260 PAINT (82, 65), 1: PAINT (70, 101), 1: PAINT (168, 103), 1 : PAINT (176, 64) , 1 

270 PAINTC92, 106), 1:PAINT(96, 108) , 1 : PAINT( 104, 104) , 1 :PAINT( 100, 98) , 1 : PAINTC120, 1 

07), 1: PAINT (184, 68), 6 

280 GOTO 280 
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REM 


GOMOKU BY JAN JACO! 
1986 
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REM 


ADELAIDE BEBA USER 


40 


REM 
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REM 





CLUB 



50 GOSUB720 

60 G0SUB160 

70 G0SUB290 

80 S$=R I GHT * ( STR* ( G-i ) , 2 > : X = < VAL ( R I GHT$ ( S* , 1 ) ) * 16+14 ) : Y= ( VAL C LEFT* CS$, 1 ) ) *1 6+14) 

:CURSORXfYz PRINT" k" 

90 IFL>3THENC0L0R15:CURS0R192,64:PRINT"I WIN 1 ' ": F0PA=1T0500: NEXT: END 

100 GOTO 60 

110 E=A 

120 E=E+N: IFAiEK ZTHENRETURN 

130 K=f: + 1: GOTO 120 

140 PRINT CHR$U1>; 

150 PRINT: PRINT 

160 REM 

170 CUPS0R32, 176: C0L0R11: PRINT "Your move: ": X=94i Y=176:G*=" " 

1 80 I $= I NKE Y* : I F I $= " " THEN 1 80 

190 IFI$=CHR$C 13)ANDLEN(.G*i=2THENBEEP: BEEP: G=VAL( G$ I : GOT0240 

200 I F I *=CHR$ < 8 ) ANDLEN < G$ ) >0THENG0SUB230 : GOTO 1 80 

210 in$ :"1"0RI*>"8"THEN180 

220 BEEP:6$=G*+I$:CUR30RX,Y:PRINTI$:X=X+8:G0T018O 

230 X^X-8: BLINE < X, Y ! - I X+7, Y+7) , , BF: L=LEN<G*>-1 : G*=LEFT$(G*, L > : BEEP: RETURN 

240 G=6+l 

250 IFG< 12GRG>890RA(G)< : -46THENBEEP2: G0T0170 

260 Z=H 

270 C0L0R1:A(G)=Z:S$=RIGHT$<STR$<6- 1 > f 2): X = t VAL (RIGHT* CS$, 1 ) )*16+14) :Y=C VAL CLEFT 

*CS*, 1 ' >tlb+14> rCURSORXf Y: PRINT" i": BLINE CO, 176) -(255, 19 1 >, , BF 

280 RETURN 

290 A=G 

3C»0 L=Q 

310 F0RX«1T04:K=0:N=X<X > 

320 G0SUB110 

330 N--N: GOSUBllO 

340 IFF LTHENL=K 

350 NEXT X 

360 IFL>3THENCOLOR11:CUR30R192, 64: PRINT' 1 YOU WIN! ! ":F0RA=1T0500: NEXT: END 

370 T=l 

3RD IF T02THENZ=C 

390 IF T~2THENZ=H 

400 6-0:Hl-0:L=0 

410 FOR A=12T089 

420 11=0 

430 IF A< A.' 46THEN540 

440 FOR X = 1 T04 : K=0 : N- X < X ) 

450 GOSUBllO 

400 N=-N: GOSUBllO 

470 IFK>LTHENH1=0:L--=K 

480 IFLOKTHEN510 

490 IF T-1ANDL<"40RCT=20RT=3)ANDL<2THEN510 

500 M=M+1 

510 NEXTX 

520 IFM<=H1THEN540 

530 H1=M:G=A 

540 NExT A 

550 IFH1 -. 0THEN620 

560 T=T+1; IFT< ,4THEN380 
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570 A=l 

580 G= I NT ( RND ( 1 ) *77 ) + 1 3 

590 IFA(G)=46THEN620 

600 A= A+ 1 : I FA - 1 0OTHEN5S0 

G10 CURSDR32, 176: COLOR 15: PRINT "I CONCEDE THE GAME": PR I NT "TO A MASTER! ! ":FORA= IT 

0500: NEXT: END 

620 A(G)=C 

630 Z=C:A=G:L=0 

640 F0RX=1T04 

650 K=0 

660 N=X(X> 

670 GOSUBHO 

6B0 N=-N:G0S0B110 

690 IFK>LTHENL=K 

700 NEXTX 

710 RETURN 

720 CLS 

730 DIMA<100),XC4) 

740 F0RC=1T08 

750 F0RB=2TQ9 

760 ACC*10+B>=46 

770 NEXTB 

780 NEXTC 

790 F0RQ=1T04 

800 READZ: X(Q)=Z 

810 NEXTC! 

820 DATA 1,9, 10, 11 

830 H"ASC<"/">:C=ASCC ,, * M ) 

840 SCREEN 2, 2:CLS: PRINT CHR*< 16) : C0L0R8: CURS0R95, 10: PRINT CHR*Q7 » ; "GOMOKU" : PR I 

NTCHR* ( 16) : COLOR 1;CURS0R85, 40 : PRINT "BY JAN J ACOBSEN": CURSOR 120, 50: PRINT" 1986" 

850 C0L0R2 : PR I NT : PR I NT : PR I NT : PR I NT : PR I NT : PR I NT : PR INT" You 'II find GOMOKU an 

easy game to learn, but one which is almost impossible to win. 

860 PRINT" The computer plays extremly well in this program. 

870 COLOR 1.-CURS0R50, 170: PRINT "ENTER Y IF YOU WANT THE" 

880 CURS0R50, 180: PRINT "FIRST MOVE, N IF YOU DON'T" 

890 N=0 

9O0 N=N+1 

910 A*=INKEY* 

920 IFA$<>"y"ANDA$- >"Y"ANDA$- .: "n"ANDA$ "N"THEN900 

930 DU=RND(-1) 

940 SCREEN 2, 2: COLOR 1 ,8, ,8: CLS 

950 PR I NTCHR* C 17) : PR INT: COLOR 1 5 

•360 CURSOR200 ,10: PR I NT " G " 

970 CURS0R200 ,18: PR I NT " " 

980 CURS0R200 , 26 : PR I NT " M " 

990 CURS0R200 , 34 : PR I NT " " 

1 000 CURS0R200 r 42: PR I NT " K " 

1 1 CURS0R200 , 50 : PR I NT " U " 

1020 PRINTCHR4U6) 

1030 F0PX=24T019*8STEP16:LINE<24,X>-<:i9*8,X>, 1 : LINE<!X, 24)- (X , 19*8), 1 : NEXT: COLOR, 

15,(24, 24 ) - < 1 9*8- 1 r 1 9*8 ) 

1040 S=1:F0RA=27T0139STEP16:CURS0R10,A:PRINTS:CURS0RA, 16: PRINTS: S=S+1 : NEXT 

1050 IF A*="y"ORA$="Y"THENRETURN 

1060 RESTORE: F0RJ=1TQINT (RND (1)*12)+1 

1070 READZ 

1080 NEXT J 

1090 ACZ)-C 

1100 S*=RIBHT*(STR*(Z),2):X=<VAL(R , IGHT$(S$ > 1))*16+14):Y=CVALCLEFT*CS*, 1))*16+14) 

:CURSORX,Y:PRINT"X" 

1110 RETURN 

1 120 DATA34, 35, 44, 46, 47, 54, 55, 56, 57, 66 



43 



CHESS 



By Jan Jacobsen 1986 



1 REM CHESS 

2 REM 1986 

3 REM 

4 REM BY 

5 REM 

6 REM JAN JACOBSEN 

7 REM 

8 RE M * * * fc * * * * t * * 1 1 * * * * * * * * * * * * * * * 

9 COLOR 15, 4 
20 GOSUB 2970 



30 GOTO SO 



40 GOSUB 2580 

50 GOSUB 2820 

60 GOSUB 2580 

70 REM ****** ************************* 

80 IF A$="5" THEN END 

90 IF A*="X" THEN PRINT "EXCHANGING SIDES": GOSUB 3540 :A$="" 

100 IF A*="P" THEN GOSUB 3730 

110 REM ****************************** 

120 FOR Z = l TO 16:T<:Z)=0:NEXT Z 

130 U=0 

140 PRINT "Please stand by..." 

141 FOR W=l TO 5: SOUND 1, 165, 15:NEXT W: SOUNDO: FOR U=l TO 5: S0UND2, 165, 15:NEXT W:S 
OUNDOrFOR W=l TO 5: SOUNDS, 165, 15: NEXT W: SOUNDO: FOR W=l TO 30: S0UND1, 139, 15: NEXT 
W: SOUNDO 

150 FOR Q=l TO 64: IF ACS(G))>=BB AND ACS<0> K=RB THEN U=U+1 : T(U)=S(0) : IF ACSCQ)) 

=KB THEN KM=SCO) 

160 NEXT Q:IF U<3 THEN GOTO 2230 

170 GOTO 650 

1 80 FOR 0= 1 TO U : I F A CT CQ> ) =KB THEN T < > =T ( U > : T ( U ) =KM 

190 NEXT Q 

200 Q=INTCRNDC1)*3) 

210 IF A*="C" THEN 0=0 

220 IF GKU THEN Q=Q+1 

230 Z=T(Q): GOSUB 280 

240 IF MM=1 THEN GOSUB 2500: GOTO 40 

250 IF Q<U THEN 220 

260 GOTO 2360 

270 REM * ft t * ********** i * ******* ****** 

280 IFAm=QBTHENGOSUB 910 

290 IFACZ>=RBTHENGOSUB 1170 

300 IFA<:Z)=BBTHENGOSUB 1420 

310 IFACZ)=NBTHENGOSUB 1690 

320 IFA(Z)=PBTHENGOSUB 2240 

330 RETURN 

340 REM ***************************** 

350 IF At X) = 107 THEN MM=0: Q=Q+1 : RETURN 

360 IF X+9>88 THEN 380 

370 IF ACX+9K83 AND ACX+9)>65 AND RNDCIK.96 THEN RETURN 

380 IF X - 1 1 :: 1 1 THEN 400 

390 IF A ( X-l 1 ) <83 AND A ( X- 1 1 ) >65 AND RND ( 1 ) < . 96 THEN RETURN 

400 AD=0 

410 AY=0 

420 AX=X+QCAY+AD) 

430 IF AX < 1 1 OR AX; 88 THEN 460 

440 AF-AtAX) 

450 IF AP=Q ORAF-R AND RNDC1)>.8 OR AF-B AND RNDC1)>.5 THEN RETURN 

460 AY=AY+1 

470 IF AY<8 THEN 420 
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480 AD=AD+7 

490 IF AD<56 THEN 410 

500 AY=1 

510 AX=X+N«.AY> 

520 IF AX<11 OR AX>88 THEN 540 

530 IF A(AX)=N THEN RETURN 

540 AY=AY+1 

550 IF AY<9 THEN 510 

560 AY=1 

570 AX = X +K(AY> 

580 IF AX<11 OR AX; 88 THEN 600 

590 IF ACAX>=K OR ACAX)=P ANDPNDU > >•. 1 THEN RETURN 

600 AY=AY+1 

610 IF AY<9 THEN 570 

620 MM=1 

630 RETURN 

640 REM ******^********************** 

650 Z=KM 

660 Y=0 

670 Y=Y+1 

680 X=Z+N(Y> 

690 IF X< 1 1 OR X>88 THEN 600 

700 IF ACX)=N THEN 1870 

710 IF Y<8 THEN 670 

720 REM :m::m:mm^U -m::m:m:t4 t * * 

730 D=0 

740 Y=l 

750 X=Z+GKY+D) 

760 IF X<11 OR X>88 THEN 810 

770 IF ACX>=B OR ACX)=Q OR ACX)=R THEN 1870 

780 IF ACX>OE THEN 810 

790 Y=Y+1 

800 IF Y<8 THEN 750 

810 D=D+7 

820 IF D<49 THEN 750 

830 X=Z+11 

840 IF X>88 THEN 860 

850 IF A(X)=P THEN 1870 

860 X-Z-ll 

870 IF X<11 THEN 180 

880 IF A(X)=P THEN 1870 

890 GOTO 180 

900 REM m****#:m********:m**#* * i 1 1 

910 D=0 

920 Y=l 

930 X=Z+GKY+D) 

940 IF X :: 1 1 OR X >88 THEN 1000 

950 IF ACX:>=42 OR A(X> =BB AND A(XX=RB THEN 1000 

960 IF A(X)>=B AND ACXK=R THEN GOSUB 350: IF MMO 1 THEN 1000 

970 IF MM=1 THEN RETURN 

980 Y=Y+1 

990 IF Y<7 THEN 930 

1000 D=D+7 

1010 IF D<42 THEN 920 

1020 RETURN 

1 030 REM *:*::*::t::*::*:*:t:*:t::*::t:**:*::*::*;*:*:*:*::*::*::*::*::*::* ::* :* 

1040 D=0 

1050 Y=l 

1060 X=Z+CHY+D> 

1070 IF X< 1 1 OR X.:-BB THEN 1130 

1080 IF AC XX L -E THEN 1130 

1090 IF RNDQJ .5 THEN GOSUB 350: IF MM=0 THEN GOTO 1130 

1100 IF MM=1 THEN RETURN 

1110 Y=Y+1 
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1120 IF Y<8 THEN GOTO 1060 

1130 D=D+7 

1140 IF D<49 THEN 1050 

1150 RETURN 

1160 REM ***************************** 

I l 70 D-0 

1180 Y=l 

1190 X=Z+R(Y+D) 

1200 IF X- 11 OR X>88 THEN 1260 

1210 IF A < X ) =42 OR A < X > >=BB AND A ( X ) < =RB THEN 1 630 

1220 IF A<X)-=B AND ACXX=R THEN GOSUB 350: IF MM^O THEN GOTO 1260 

1230 IF MM=1 THEN RETURN 

1240 Y=Y+1 

1250 IF Y<7 THEN 1190 

1260 D=D+7 

1270 IF D-21 THEN 1180 

1280 RETURN 

1 290 REM ***************************** 

1300 D=0 

1310 Y=l 

1320 X=Z+R(Y+D) 

1330 IF X < 1 1 OR X;8S THEN 1390 

1340 IF A(X)OE THEN 1390 

1350 IF RNDtlK.l THEN GOSUB 350 
1360 IF MM=1 THEN RETURN 

1370 Y=Y+1 

1380 IF Y<7 THEN 1320 

1390 D=D+7 

1400 IF D<21 THEN 1310 
1410 RETURN 

1420 IF ACZ):>BB THEN RETURN 

1430 D=0 

1440 Y=l 

1450 X=Z+B(Y+D) 

1460 IF X<11 OR X/88 THEN 1520 

1470 IF ACX)=42 OR A<X)>=BB AND A(X><=RB THEN 1520 

1480 IF A<.X)>=B AND A(XX=R THEN GOSUB 350: IF MM 1 THEN 1520 

1490 IF MM=1 THEN RETURN 

1500 Y=Y+1 

1510 IF Y<7 THEN 1450 

1520 D=D+7 

1530 IF D<21 THEN 1440 

1540 RETURN 

1550 REM **************************** 

1560 D=0 

1570 Y=l 

1580 X=Z+B(Y+D) 

1590 IF X < 1 1 OR X>88 THEN 1650 

1600 IF A<XX> E THEN 1650 

1610 IF RNDC1>>.05 THEN GOSUB 350: IF MM ,1 THEN 1650 

1620 IF MM=1 THEN RETURN 

1630 Y=Y+1 

1640 IF Y<7 THEN 1580 

1650 D=D+7 

1660 IF D<21 THEN 1570 

1670 RETURN 

1680 REM **** t i * ************* *:******:< ** 

1630 Y=l 
1700 X=Z+N(Y) 

1710 IF * 11 OR X 88 THEN 1750 

1720 IF ACX)=42 THEN 1750 

1730 IF A(X)>=B AND A(XX=R THEN GOSUB 350 

1740 IF MM=1 THEN RETURN 

1750 Y=Y+1 
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1760 IF Y.9 THEN 1700 

1770 RETURN 

1780 REM **************************** 

1790 Y=0 

1G0O X=Z+N C INT CRND « 1 ) *8) + 1 ) 

1810 IF X<11 OR X>88 THEN 1300 

1820 IF ACX)=42 THEN 1800 

1830 Y=Y+1 

1840 IF A(X)=E THEN BOSUB 350 

1850 IF MM=1 OR Y>20 THEN RETURN 

1860 GOTO 1800 

1870 YK=1 

1880 Z=KM 

1890 X=Z+KCYK):X1=X 

1900 IF X < 11 OR X>88 THEN 2200 

1910 IF A(X)=42 OR A(X)>65 AND ACXX83 THEN 2200 

1920 IF ACX)>97 AND A (XX 115 THEN 2200 

1930 Z=X 

1940 Y=0 

1950 Y=Y+1 

I960 X=Z+NCY) 

1970 IF X<11 OR X>88 THEN 1990 

1980 IF ACX)=N THEN 2200 

1990 IF Y<8 THEN 1950 

2000 REM ****** * ** ****** It**** * KM ** ** 

2010 D=0 

2020 Y-l 

2030 X=Z+Q(Y+D) 

2040 IF X 11 OR X 88 THEN 2090 

2050 IF A(X»=B OR A(X)=Q OR A(X)=R THEN 2200 

2060 IF A<XX>E THEN 2090 

2070 Y=Y+1 

2080 IF Y-:S THEN 2030 

2090 D=D+7 

2100 IF D<49 THEN 2030 

2110 X=Z+1 1 

2120 IF X;S8 THEN 2140 

2130 IF A(X)=P THEN 2200 

2140 X = Z--11 

2150 IF X 1 1 THEN 2170 

2160 IF A(X)=P THEN 2200 

2170 X=X1: Z=KM 

2180 MM=1 

2190 GOSUB 2500: GOTO 40 

2200 YK=YK+1 

2210 Z=KM 

2220 IF YK<9 THEN 1880 

2230 PRINT "I concede, champ!" 8 END 

2240 X=Z+9 

2250 IF ACX)>=B AND ACXX=R THEN MM=1:IF ACX)=P AND RNDC1X.2 THEN MM=0 

2260 IF MM=i THEN RETURN 

2270 IF Z=12 THEN RETURN 

2280 X = Z-1 1 

2290 IF A(X)>=B AND ACXX=R THEN MM=1:IF A(X)=P AND RND<1X.2 THEN MM=0 

2300 RETURN 

23 1 REM ***** M-.HHttftMtlMtOHII 

2320 IF Z-10*<"INT(Z/10)>=7 AND A<Z-1)=E AND A(Z-2)=€ AND CAi.2 13;=E OR ACZ-13)=4 

2) AND (A(+7)=E OR A (+7) =42) THEN X=Z-2:MM=1 : RETURN 

2330 IF ACZ-1)=E AND ACZ-12X98 AND A(Z+€X98 THEN X=Z-1 : MM=1 : RETURN 

2340 IF RNDUX.05 AND A<Z-1)=E THEN X = Z-1:MM=1 

2350 RETURN 

2360 Q= I NT ( RND ( 1 ) *RND ( 1 ) *5 ) : IF Q >U THEN 2360 

2370 IF D<U THEN Q=Q+1 

2380 Z=T(Q» 
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2390 IF A<Z>=PB THEN GOSUB 2320 

2400 IF A'Z'^NB THEN GQ3UB 1730 

2410 IF A(Z>=BB THEN GOSUB 1560 

2420 IF A<Z>=RB THEN GOSUB 1300 

2430 IF ACZ»=QB THEN GOSUB 1040 

2440 IF A(Z)=KB AND A*<>"C" AND RND<1K.07 THEN GOSUB 1S70 

2450 IF MM=0 AND Q<U THEN GOTO 2370 

2460 IF MM=1 THEN GOSUB 2500: GOTO 40 

2470 UK=UK+1:IF UK>B THEN 2230 

2430 GOTO 2360 

2490 REM **************************** 

2500 IF A(Z)=KB AND A$<>"C" AND RNDC1)>.1 THEN MM=0:GOTO 2360 

2510 IF A(Z>=PB AND C CX-10*INT<X/10) >Z-iO*JNTCZ/10)OR ABSCX-Z.) >1 1 .) > THEN MM=0:U= 

U+1:G0T0 230 

2520 IF A(X)=K THEN PRINT "CHECK" :MM=0: U=U+1 : GOTO 230 

2530 A ( X ) =A i. Z * : A < Z ) =E 

2540 PRINT : PRINT "I will move from "; 

2550 FZ=INT(Z/iO):PRINT CHR$(FZ+64) ; Z-10*FZ; " to ";: FX=INT(X/10> : PRINT CHR*< FX+ 

64);X-10*FX:F0R 0=1 TO 1000: NEXT 

2560 RETURN 

2570 REM **************************** 

2580 CLS 

2590 GOSUB 2670 

2600 FOR X=S TO 1 STEP -1 

2610 PRINT TAB(10>;X;" " ; 

2620 FOR Y=10 TO 80 STEP 10 

2630 IF A(Y+1)=PB THEN A<Y+1)=QB 

2640 IF A(Y+8)=P THEN ACY+8)^Q 

2650 PR I NT CHR$ C A ( Y+ X ) ) ; " " ; 

2660 NEXT Y:PRINT X:NEXT X:MM=0 

2670 PRINT:PPINT TAB(13);"A B C D E F G H":PRINT 

2680 REM *********************** ****** 

2690 RETURN 

2700 Z=KM 

2710 QK=0 

2720 M=Z+K(QK) 

2730 IF M< 1 1 OR M>88 THEN 2780 

2740 IF A(M.<=42 OR A(M<>65 AND ACM) < 83 OR MM=0 THEN 2780 

2750 X=M 

2760 KM=Z 

2770 RETURN 

2780 IF QK<8 THEN 2 '20 

2790 IF A*0"C" THEN RETURN 

2800 GOTO 2230 

2810 REM *** *>:************************* 

2820 PRINT 

2830 INPUT "FROM (LETTER, NUMBER >- " ; A* 

2840 IF LEN<A*}<>2 THEN 2820 

2850 PRINT: INPUT "TO- " ; B$ 

2860 IF LENCB*)<>2 THEN 2850 

2870 X = 1 0* ( ASC ( A$ ) -64 ) +VAL < R I GHT$ I A$ , 1 ' ) 

2880 Y = 1 * (ASC '. B* ) -64 .» +VAL I R IGHT$ (B$» 1 ) ) 

2830 PRINT : PRINT "Enter C - check" 

2900 PRINT " P - to print board" 

2910 PRINT " x - to exchange side" 

2920 PRINT " s - to stop game" 

2330 INPUT "Or press RETURN to continue"; A* 

2340 IF A<:y;0=75 AND ACY>082 THEN GOSUB 3660 

2350 A ( Y ) = A ( X ) : A ( X ) =46 : RETURN 

2360 REM **************************** 

2370 CLS: CURSOR 5, 4: PRINT "ARE YOU READY FOR ME TO START" ": CURSORS, 6: PRINT "IF 

SO THEN PRESS RETURN": PRINT: PRINT: PRINT 
2980 N=N+1:IF INKEY*="" THEN 2980 
2990 CLS: CURSOR 12, 12: PRINT"PI ease stand by" 
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3000 FOP L=l TO 10: SOUND 1, 131, 15: NEXT L: SOUNDO: FOR L=l TO 10:S0UND2, 147, 15: NEXT 
L:SOUNDO:FOR L=l TO 10: SOUNDS, 131 , 15: NEXT L: SOUNDO: FOR L=l TO 30:S0UND1 , 156, 15: N 
EXT L: SOUNDO 
3010 MM=0:A$="" 

3020 DIM A < 99) , R (28 ) ,B(2B) ,N(8) ,GK56) , K < 8> , Z (88) , SC64) , T C 16.) 
3030 P=112:R=114:N=110:B=98:Q=113:K=107:E=46 
3040 PB =80 : RB=82 : NB=78 : BB=66 : QB=8 1 : KB=75 
3050 FOP Z = l TO 99: A CZ> =-99: NEXT Z 
30 60 REM *** * * % % % % % * % % % % * * * * * * * * * * * * * * 
3070 FOP Z=l TO 64: READ X:READ Y: AC X>=Y: NEXT Z 
3080 DATA 18,82,28,78,38,66,48,81 
3090 DATA 58,75,68,66,78,78,88,82 
3 1 00 DATA 1 7 , 80 ,27,80,37, 80 , 47 , 80 
3110 DATA 57,80,67,80,77,30,87,80 
3120 DATA 16,46,26,46,36,46,46,46 
3130 DATA 56,46,66,46,76,46,86,46 
3140 DATA 15,46,25,46,35,46,45,46 
3150 DATA 55,46,65,46,75,46,85,46 
3160 DATA 14,46,24,46,34,46,44,46 
3170 DATA 54,46,64,46,74,46,84,46 
3180 DATA 13,46,23,46,33,46,43,46 
3190 DATA 53,46,63,46,73,46,83,46 
3200 DATA 12,112,22,112,32,112,42,112 
3210 DATA 52,112,62,112,72,112,82,112 
3220 DATA 11,114,21,110,31,98,41,113 
3230 DATA 51,107,61,98,71,110,31,114 
3240 REM *************************** 
3250 RESTORE 3270 

3260 FOR Z = l TO 8: READ NCZ):NEXT Z 
3270 DATA 19, -19, 21 , -21 , -3,8, 12, --12 
3280 FOR Z = l TO 28: READ R(Z):NEXT Z 
3290 DATA 1 , 20 , 30 , 40 , 50 , 50 , 50 
3300 DATA -1,-2,-3,-4,-5,-5,-5 
3310 DATA -10,-20,-30,-40,-50,-50,-50 
3320 DATA 1,2,3,4,5,5,5 
3330 RESTORE 3350 

3340 FOR Z=l TO 28: READ B<Z):NEXT Z 
3350 DATA -11,-22,-33,-44,-55,-55,-55 
3360 DATA 11,22,33,44,55,55,55 
3370 DATA 3,18,27,36,45,45,45 
3380 DATA -9,-18,-27,-36,-45,-45,-45 
3390 RESTORE 3290 

3400 FOP Z=l TO 56: READ Q(Z):NEXT I 
3410 FOP Z=l TO 8: READ KCZ)sNEXT Z 
3420 DATA 1,11,9,10,-10,-9,-11,-1 
3430 FOP Z = l TO 64: READ SCZ):NEXT I 
3440 DATA 46,56,36,66,47,57,45,55 
3450 DATA 37, 67, 35, 65, 23, 78, 2 7, 7 7 
3460 DATA 44,54, 26, 76,38, 68, 1"?, S7 
3470 DATA 18,88,34,64,25,75,16,86 
3480 DATA 48,24,74,15,85,14,84,43 
3490 DATA 53, 33,62, 23,73,52,42,62 
3500 DATA 32,83,13,72,22,12,82,41 
3510 DATA 51,31,61,21,71,11,81,58 
3520 CLS: RETURN 

3530 REM ******** **:* ******** t ***** * 
3540 FOR Z=ll TO 88: Z<Z>-ACZ) ;NEXT Z 
3550 FOP Z=U TO B8: X=Z-10*INTCZ/10) 
3560 IF X=0 OP X=3 THEN 3580 
3570 ACZ)=ZCZ+9-X*2) 
3580 NEXT Z 

3590 FOR Z = ll TO 88:M=ACZ> 
3600 IF M>=B THEN ACZ)=A<Z>+PB-P 
3610 IF M<=RB AND M =BB THEN ACZ.»=ACZ t-PB+P 
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3620 NEXT Z 

3630 GOSUB 2580 

3640 RETURN 

3650 REM *************************** 

3660 CM=INT(RNDU>*4) + 1 

3670 ON CM GOSUB 3690,3700,3710,3720 

3680 FOR J=l TO 1000: NEXT J: RETURN 

3690 PRINT : PRINT " Well done !": RETURN 

3700 PRINT : PRINT " Good move ": RETURN 

3710 PRINT: PRINT " Great move , champ '": RETURN 

3720 PRINT : PR I NT " Got me. ..": RETURN 

3730 LPRINT "****************************" 

3740 GOSUB 3800 

3750 FOR X-8 TO 1 STEP -1 

3760 LPRINT TAB(5);Xj " "; 

3770 FOP Y-10 TO 80 STEP 10 

3780 LPRINT CHR$<ACX+Y) ); " "; 

3790 NEXT Y: LPRINT X:NEXT X 

3800 LPRINT : LPRINT TAB (9); "A B C D E F G H": LPRINT 

3810 RETURN 



EGG BERT By Mark Fisher 

1 REM* * *************** * ****** * ** ** * * 
20 REM******************************* 
30 REM*** *** 

40 REM*** By Mark' EGGBERT' Fisher **.* 

50 REM*** *** 

60 REM*** of the S.A. User Club *** 

70 REM HI *** 

80 REM******** * * ***** ** t :* * * **** % t **** 

90 REM*:* ********* * * ** * * * ************ * 

100 REM 

110 COLOR] 5, 4 

120 CLS 

130 PRINTTABQ5) ; "EGGBEPT" 

140 PRINT' " 

150 INPUT" TRACK ";T 

160 IF T ,00PT;39THENBEEP2:G0T0 150 

170 INPUT" SECTOR ";S 

1 80 I F S< 1 0R3 > 1 6THENBEEP2 : GOTO 1 70 

l;0 DSKI$ T,S;A$,0, 128;B$, 128, 126 

200 CLS: PRINT" " ; : F0RX=0TQ15 

210 PRINTRIGHT$»:HEX$CX:>, 1); : NEXT: PRINT: PRINT 

220 F0RY=0T020 : CUPSQR22 , Y : PR I NT " " : NEXT : CUR50R0 , 2 

230 F0RY=0T07 : FOR X =0T0 1 5 

240 IFX=OTHENPRINTY 

250 CURSORX+3, Y+2 

260 I$=MID$iA$,X+, Ubi 1, 15 

270 IF I$>=" "THENPRINTI*:GOTO 290 

280 PRINT". " 

290 NEXT X,Y 

300 F0RY=0T07 : FORX=OTO 1 5 

310 IFX=OTHENPRINT" M jHEX$(Y+8) 

320 CURSORX+3, Y+8+2 

330 I*=MID*<:B$,X+Y*16+1,1 ! 

340 IF I$>=" "THENPRINTI*:GuTO 360 

350 PRINT"." 

360 NEXT X- V 

370 PRINT: PRINT" " ; : F0RX-0TQ15 

380 PRINTRIGHT$(HEX$(X) , 1) ; :NEXT 

390 CURS0R25 , 2 : PR I NT " -A/ ASC 1 1 " 

400 CURS0R25 , 3 : PR I NT " -D/ DEC " 
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4 1 CURS0R25 , 4 : PR I NT " -H/ HEX " 

420 CURS0R25,5:PRINT"-Q/ QUIT" 

430 CURS0R25,&:PRINT"-W/ WRT" 

440 CURS0R25,7:PRINT"-S/ NEXT" 

450 CURSQR25, 8s PRINT" SECTOR" 

460 CURS0R25,9:PRINT"-M HEX" 

470 CUR50R25, lOsPRINT" DISPLAY" 

480 CURS0R25, 13: PR INT" TRACK ";T 

490 CURSQR25, 14: PRINT "SECTOR " ; S 

500 CURSORO ,21:1 NPUT "START " ; 5$ 

510 S1=VAL<"?<H"+MID*<S*,2, 1 )+MID*<S*, 1,1)) 

520 ED=0 

530 IF RIGHT*CS$,2>="-A"THENED=1 

540 IF RIGHT* CS*,2)="-D"THENED=2 

550 IF RIGHT*CS*,2)= ,, -H"THENED=3 

560 IF RIGHT* <S*, 2^ = "-G" THEN 120 

570 IF RI6HT*(S*,2)="-W"THENGQSUB 790: GOTO 120 

580 IF RIGHT*CS*,2)="-3 ,, THENS=S+1: IFSM6THENT=T+1: IFT>39THENT=0:GOTQ 190 

590 IF RIGHT*(S*,2)="-S"THEN190 

600 IF RIGHT*(S*,2)= M -M"THENED=4 

610 IF ED=0THENCURS0R0,22: INPUT "EDIT MODE " ; M$: S*=S*+M*: GOTO 520 

620 CURSORO ,21: PR I NTSPC ( 38 > 

630 CURSORO, 21: INPUT", GO '■■ " ; ED* 

640 CURSORO ,21: PR I NTCHR$ ( 5 ) 

650 CURSORO, 21: PR I NT "PLEASE WAIT..." 

660 ONEDGOSUB 690,720,760,840 

670 GOTO 200 

680 END 

690 IFSl>127THENSl=Sl-i2B:G0Tt3 710 

700 EA*=LEFT*CA*i SI > +ED*+RIGHT*':A*, 12S SI LENCED* ' ' ; M =EA*: RETURN 

710 EA*=LEFT*<;B*,S1)+ED*+RIGHT*<B* ) 128-S1-LEN<ED1 ' : B*=EA*: RETURN 

720 REM 

730 F0RR:=1T0LEN(ED$) STEP 2 

740 V=VAL»:MID*<ED*,R,3) ):E$=E$+CHR$' V .- 

750 NEXT : ED*=E$: GOSUB 690 : RETURN 

760 F0RR=1T0LEN(ED*) STEP 2 

770 V=VAL< "&H" i MID* (ED* ,R,2) » : Ei=Li-> CHR* 

780 NEXT:ED*=E*:GOSUB 690: RETURN 

790 CLS 

00 INPUT "ARE iuU SURE ' V/N> "; R$ 
810 IF R* ' r'THENRETURN 
320 D5K0* T , S ; A*, 0, 128j B* r 128, 1 26 
830 RETURN 
340 CLS 

850 FQRB1=1TQ128 STEP 8 
860 F0RB2 =B 1 TOB I +7 

870 PU*=HEX*<ASCCMID*<A*,B2, 1))) + " ' 
330 IFLEN v PU*) <3THENPU*=" " +-PU* 
390 PRINTPU*; 

900 nex r 

910 PRINT: NEXT 

920 PR I NT : PR I NT "HI 1 AN i KE\ \ U CON I I NUE " 

330 IF INKEY*= ,,,, THEN: 

940 CLS 

350 F0RB1---1T012S STEP B 

960 F0RB2-B1T0B1+7 

970 PU*=HEX*CASCCMID*CB*,B2, 1 )).) + " " 

380 IFLEN ( PU*) < 3THENPU*=" " +PU * 

390 PRINTPU*; 

1100 NEXT 

1110 PRINT: NE - I 

1120 PRINT: PP I NT "HIT ANY KEY TO CONTINUE" 

1130 IF INKEY*= ,,M THEN 1130 

1140 RETURN 
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r-n r- 01-71- r^i_icroL< nnnpnAM By Alex Farkas & Jan Jacobsen 1986 
FILE SIZE CHECK PROGRAM (For Disk Only) 



10 REM 


File Size Check Program 




20 REM 


BY 




30 REM 






40 REM 


ALEX FARKAS & JAN JACOBSEN 




50 REM 






60 REM 


1 386 




70 REM 






80 REM 


( for disk on 1 y > 




90 REM 






100 C0NS0LE0, 24: CLS: PRINT" ALJAPA fi 


1 e size 






Nan.*: " 
ii 


n 





check program Mk.IX 

;TAB< 17 >; "Size:"; TAB< 25 >; "Type:": PRINT 
ii 

1 1 ERASE : CONSOLES ,17: CLS 

120 M$(l)-"Push <SPACE: to continue" 

1 30 M* (2 ) = " Push < R > t o RUN p r eg r a m . " 

140 M*(3)=" Push <K> to KILL file" 

150 M*(4)=" Push 5 to SET file" 

1 60 MS (5 ) - " Push < N > t o RENAME file" 

170 MS<6)=" Push <L> to LOADM file" 

180 D I MPS < .192) 

190 DATA F3,0E| 14, 06, OD, 1 1 , 00, FF, CD, A7, 01 , CD, AD, 01 , CD, 95, 01 , C9 

200 RESTORE 1 90 : F0RX=?/HFE00TQ?vHFEl 1 : READAS: POKEX, VAL( "&H"+A$) : NEXT: CALLttHFEOO: BOS 

UB 510 

210 CF=0 

220 N=1:FL=0:F0PS=1T012:DSKI$20,S;A1$,0, 128;A2S, 128, 128 

230 F0RCH=0T07:CHS=MIDS(A1$,CH*16+1, 12) 

240 IFLEFTStCHS, 1 >=CHRS(0>THENN=N-1 : G0T0280 

250 PRINTN;TAB(4);": ";CHS; : CL$=MIDSCA1S, CCHH6 >+13,2> :P$(N)=CH$ 

260 K=0:TY=ASC< LEFTS t CLS, 1 )): CL=ASC (RIGHT* (CLS, 1 ) ) : H=TY: G0SUB410 

270 IFCF+UC=2'.HAOTHENCH=8: NEXTCH: S=20: G0T0370 

280 N=N+i: NEXTCH 

290 F0RCH=0T07:CHS=MIDS(A2S,CH*16+1, 12) 

300 IFLEFT$(CH$, l)=CHR*i >THENN=N-1 :GOT0340 

310 PRINTN;TAB<4);": " ; CHS; : CLS=MIDS( A2S, <CH*16)+13, 2) :P$CN)=CH* 

320 K=0s TY=A3C( LEFTS (CLS, 1 ) ) : CL=ASC( RIGHTS (CLS, 1 ) > :H=TY:G0SUB410 

330 IFCF+UC=?v.HAOTHENCH=B: NEXTCH: 8=20: G0T0370 

340 N=N+1: NEXTCH 

350 FL=0:G0SUB580: IFFL=1THENS=30:NEXTS: GOT0790 

360 IFFL>1THENS=30:NEXTS:G0SUB790:G0T01 10 

370 NEXTS 

3BO FL=0:G0SUB580s IFFL=1THEN790 

390 IFFL- 1THENG0SUB790: GOTO 1 10 

4O0 C0NS0LE4,20:CURS0R0,22:PRINT"Disk has" jDSKFj " Kbytes free":END 

410 CF=CF+1 : K=K+1 : AS=RIGHT$ ( H 0"+HEX«<PEEK<&HFFOO+TY) ) , 2) : TY=VAL C "&H"+A$) 

420 IFLEFTS(AS, i:X>"C"THEN410 

430 PR I NTTAB ( 1 8 ) ; K ; " k " ; TAB < 25 ) ; 

440 IFCL=OTHENTS=" Basic" 

450 IFCL=?v.HBOTHENTS="t Basic" 

460 IFCL=2THENTS=" HEX file" 

470 IFCL=?vH82THENTS="* HEX file" 

480 IFCL=1THENT$=" ASCII" 

490 IFCL=?yH81THENTS="* ASCII" 

500 PR INTTS: RETURN 

510 DATA F3, 1 1 ,00, FF, 06, AO, 1A, 13, FE, FF, 28, 07, FE, FE, 28, OD, 10, F4, C9, 3A, FE,FE, 3C, 32 

,FE,FE, 10,EA,C9,3A,FD,FE,3C,32,FD,FE, 10,E0,C9, i 

520 X«&HFE80 

530 READAS: IFA$O"*"THENP0KEX, VAL<"&H"+A*):X=X+1:G0T0530 

540 POKE&HFEFE , : POKE&HFEFD , 

550 CALL&HFEBO 

560 LM>PEEK C&HFEFE) +PEEK (fcHFEFD) 

570 RETURN 
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580 CONSOLES, 19: H=G 

590 H=H+1:IFH=7THENH=1 

600 CURS0R8, 23:PRINTM*CH) ; 

610 F0RU=1T030:IFINKEY$=" "THEN77G 

620 IFINKEY$="R"THENU=40:NEXTU:FL=1:G0T0790 

630 I F I NKEY*= " K " THENU=40 : NEX TU : FL=2 : RETURN 

640 IFINKEY*="S"THENU=40: NEXTU: FL=3: RETURN 

650 I FINKEY*="N"THENU=40:NEXTU:FL=4: RETURN 

660 IF INKEY$="L"THENU=40: NEXTU: FL=5: RETURN 

670 NEXTU 

680 CURSORO , 23 : PR I IMTCHR* (21); 

690 F0RU=1T030: IFINKEY*=" "THEN770 

700 IFINKEYt="R"THENU=40: NEXTU: FL=1 : G0T0790 

710 IFINKEY$="K"THENU=40: NEXTU: FL=2: RETURN 

720 IFINKEY*="S"THENU=40: NEXTU: FL=3: RETURN 

730 IFINKEY$="N"THENU=40: NEXTU: FL=4: RETURN 

740 IFINKEY$="L"THENU=40: NEXTU: FL=5: RETURN 

750 NEXTU 

760 GOTO 590 

770 U=30: NEXTU: CLS: BEEP: RETURN 

730 FL=1: RETURN 

790 BEEP: CURSORO, 23: PRINT CHR$ (21 );: INPUT "Number please: ";N 

800 IFP$CN) =" "THENBEEP2: G0T0790 

8 1 POKE&HFEGG , ?>H 1 1 : POKE&HFEO 1 , 8tH20 

820 P0KE&HFE02, ?*HFE: P0KE&HFE03, &HC3 

830 0NFLG0T0840, 870, 890, 920, 940 

840 P0KE&HFE04 , &HDO : P0KE&HFEG5 , &H05 

850 P$(N)=" """+P$(N)+""""+CHR$(l3)+CHR$(0.) 

860 F0RA= 1 TOLEN ( P$ ( N ) ) : POKE&HFE 1 F+ A , ASC ( M I D*> I P$ < N .) , A , 1 .» - : NE X T : C0N30LE0 , 24 : CLS : BE 

EP:CALLS>HFEOO 

870 CLS:KILLP$(.N) 

880 RETURN 

890 INPUT "Condition: ";C*:CLS 

900 IFC$="P"THENSETP$CN) , "P": RETURN 

910 SETP$(N) , "0": RETURN 

920 PRINTP$(N): INPUT "New name: "; NN$: CLS 

930 NAME P$(N) AS NN$: RETURN 

940 PRINT "LOADM : -"; P$(N"> ; " into"'" 

950 INPUT ">";S$:S=VAL("?H"+5$):L0ADM Pi <N> , S: CLS: RETURN 

^/lUSIC BIT By Paul Schwarz 1986 

10 REM 

20 REN MUSIC BIT 

30 REM BY 

40 REM 

50 REM PAUL 

60 REM SCHWARZ 

70 REM 1966 

80 REM 

90 REM ADELAIDE SEGA USER CLUB 

100 REM 

110 REM 

120 REM 

130 ERASE 

1 40 DIM F 1. i I .■ ■ r 1 i l ) , F2< 1 0) , RO ' 1 • , ' " 10) > L C 1 > , A ( 1 • , B < 1 » 

150 CLS 

160 PRINT" DO VOU WANT TO " 

170 PRINT" ££ L i£±£i££££££" 

180 PRINT: PRINTTAB< 08) ; "DEFINE FREQUENCY ( 1 ) " 

190 PR INT: PR I NTT AB( 08); "DEFINE NOISE (2)" 

200 PRINT: FRINTTAEK 08); "QUIT THE PROGRAM C3) " 
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210 PRINT.-PPINT TAB C8) ;: INPUT "YOUR SELECTION ";A 

220 ON A GOTO 230,600,890 

230 CL=3840000 

240 CLS: INPUT "HOW MANY FREQUENCIES CMAX=20) ? ";NF:IF NF<1 OR NF>10 THEN GOTO 2 

40 

250 PRINT: FOR R=l TO NF: PR I NT "ENTER FREG. , VOICE, VOL. " ;R; " :";: INPUT F0< R) , VCR) ,L 

CR):NEXT 

2G0 FOR F-i TO NF 

270 R0CR)=INTCCL/C32*F0CR) )) 

2E30 IF R0CRK1 OR R0CR)>9S99 THEN G0SUB900 

290 F 1 ( P ) =CL / ( 32 *R0 (R) ) 

300 F2 •' R ) =CL / ( 32* ' RO CR) + 1 ) 5 

310 IF ABS < FO ( R ) -F 1 « R ) ) • ABS ( FO ( R ) -F2 ( R ) ) THEN GOTO 3 30 

320 ACCR)=F2CR):R0CR>=R0CR)+1:6QT0 340 

330 AC(R)=F1CR*J 

340 BCR)=INTCR0<R)/16.) 

350 A ( R .) =R0 ( R ) -B ( R ) * 1 6+ 1 28 

360 ACR)=ACR)+32*CV(R)-1) 

370 VL=15-L(R) 

3B0 VB ( R ) = 1 44+ VL -i 32* « V CR) -1 ) 

390 NEXT 

400 CLS:PRINT"FRQ. REG VCE VCB1 VCB2 VOL VCB" 

410 PRINT " 9999999999999999999999999999999999099" : CONSOLE 2,22, , ,2 

420 FOR R=l TO NF: PRINTTABC 0) ;F0< R> ; TABi 6) ; ROCR) ; TABC 12) ; VCR) ; TABC17) ; "h" ; HEX* 

CAcP) <;TABC23); "h" ; HEX** BCR) ) ; TAB (28) ; L(R) ; TABC 34) ; "h";HEX*CVB<R) I 

430 PR INT" £££££££££££££££££££££££££££££££££££££" 

440 NEXT 

450 PR INT "HARD COPY = 'H' 'CR ^CONTINUE" 

460 A*=INKEY*:IF INKEY*=""THEN 460 

470 IF A$="H" THEN HCOPY 

430 CONSOLE 0,24: CLS 

490 PR I NT" WOULD YOU LIKE TO HEAR SOUND CY/N)? " 

500 INPUT A*: IF A$="" THEN G0T0500 

510 IF A*="N" THEN GOTO 130 

520 IFA*<>"Y"THEN 490 

530 IF A*="N" THEN GOTO 150 

540 PRINT; PRINT "WHAT TIME DELAY"; : INPUT TD 

550 FOR R=l TO NF: OUT ?>H7F, A> R) : GUT &H7F, BCR) : OUT &H7F, VBCR) :FOR W=l TO TD:NEXT 

W:NEXT R:SOUNDO 

560 PR INT" REPEAT CY/N) ";: INPUT A* 

570 IF A*="N" THEN GOTO 130 

580 IF A*="Y" THEN GOTO 540 

590 GOTO 560 
600 CLS 

610 PR I NT "SELECT WHITE NOISE CD OR PERIODIC C2)" 
620 REM 
630 INPUT FB 
640 NB=224+FB*4 

650 PRINTTABC15); "SELECT HIGH PITCH CO)" 
660 PRINTTABC 15);" " MEDIUM PITCH CD" 
670 PRINTTABC 15) \ " " LOW PITCH C2) " 
680 PR I NT "PITCH UNDER CONTROL OF VOICE 3 C3>" 
690 PRINT: PRINTTABC 18) ;: INPUT "PITCH SELElTION ";NF 
700 IF NF<0 OR NF>3 THEN 620 
710 NB=NB+NF 
720 PRINT 

730 PRINT" WHAT VOLUME DO YOU WANT C15 TO 0); 
740 INPUT V 
750 PRINT 
760 V=15-V 
770 NV=240+V 

780 PR I NT "NOISE CONTROL BYTE (SENT FIRST) =8tH"} HEX* <NB) 
790 PR INT" VOLUME CONTROL BYTE CSENT SECOND >=&H' ; HEX*CNV) 
800 PRINT:PRINT:PRINT"ENTER 'H' TO HEAR SOUND" 
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TO 200: NEXT: SOUND 



310 PRINT: PR I NT "ENTER »C TO OBTAIN. HARD COPY" 

820 INPUT"OR 'R' TO RETURN TO MENU";A$ 

830 IF A*="R"THEN GOTO 130 

840 IF A$="C" THEN HCOPY:GOTO 800 

350 OUT ?<H7F,NB:0UT ?,H7F,NV:F0R W=l 

860 PR INT" REPEAT (Y/N) ";: INPUT A$ 

870 IF A$="Y" THEN GOTO 850 

880 GOTO 130 

830 CLS:END 

SCO BEEP: BEEP: RETURN 



you are fight ingoff dangerous choppers that won 
things even worse, lighting bolts can come out 



cont from p21 

4660 COLOR1 : CURSOR203, 2 : PRINT LI 

4670 BEEP: RETURN 

4680 CLS: SCREEN 1 , 1 : COLOR7 , 1 : CLS 

4690 PRINT" In the first screen, 

't stopfiring at you and to make 

of the sky . " 

4700 PRINT" The second screen is the same as the first but your jet is facing th 

e otherway and you are fighting off jets thatare just as deadly as the choppers. 

The points are at random in these two rounds." 
4710 PRINT" In the third round, you are a tank onthe surface, fighting off jets, 
jumbos, and choppers, are are all as deadly are each other. You get the score ta 
blefor that round only, and the lighting bolts are still there" 

4720 PRINT" You get 20 men in this game and at the end of rounds 1 & 2, you ge 
t bonuspoints. Use the Joy-stick to move up & down and left & right every third 

round. Be careful of sparks after exp-losion. Extra man at 5000" 
4730 IF INKEY$="" THEN 4730 
4740 RETURN 



cont from 
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TABLE XX25 VIDEO PORT CONNECTIONS 




Pin Number 


Function 






1 




Audio 






?. 




Gnd 






3 




Video 






4 




Gnd 






5 




Gnd 


EXPANSION EDGE CONNECTOR 


Pin Number 




Pin Number (Component side) 


1 


AO 




1 


+ 5v 


2 


Al 




2 


+ 5v 


3 


A2 




3 


CSRAM • 


4 


A3 




4 


CER0M2 ' 


5 


A4 




5 


MEMRD * 


6 


A5 




6 


MEMWR * 


7 


A6 




7 


1/ORD ' 


8 


A7 




8 


I/OWR ' 


9 


A8 




9 


No Connection 


10 


A9 




10 


MREQ • 


11 


A10 




11 


CON 


12 


All 




12 


RAS1 * 


13 


A12 




13 


CAS1 " 


14 


A13 




14 


RAM A7 


15 


DO 




15 


RAS2 * 


16 


Dl 




16 


CAS2 ' 


17 


D2 




17 


MUX ' 


18 


D3 




18 


A14 


19 


D4 




19 


A15 


20 


D5 




20 


No Connection 


21 


D6 




21 


GND 


22 


D7 




22 


GND 
NOTE: "means active low 



CP/M 2.2 
for SEGA 

CP/M 2.2 will enable 

users to access CP/M 

programs on Amtrad 

CP/M 2.2 disks. 

$AUS 52.00 dncip&h) 

from Jan Jacobsen or 

Les Beacall — see 
Australian User Groups 
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USER 
GROUPS 

AUCKLAND (NTH SHORE) 
SEGA USER GROUP 

Contact Norman Ravnel 
78 Anzac St 
Takapuna 
AUCKLAND 
Ph: 496-841 

PUKEKOHE SEGA USER GROUP 

Contact Selwyn Easton 
4 Roose Ave' 
PUKEKOHE 
Ph. 86 583 

SOUTH COROMANDEL 
SEGA USER GROUP 

Contact Sid Hawken 
PO Box 183 
WHANGAMATA 
Ph: 58 

HAMILTON SEGA USER GROUP 

PO Box 1548 Hamilton 
Pres.denf: Mr Colin Bell Ph: 73-826 
Secretary Mrs Anne Thrush Ph: 437-312 
Meetings held 2nd & 4th Monday of each 

month at Whitiora Community Centre. 

Willoughby St at 7 30pm. 



TOKOROA SEGA USER GROUP 

Contact Geoff Crawford 
1 Pio Pio PI 
TOKOROA 
Ph 67105 

ROTORUA SEGA USER GROUP 

Contact Terry Cole 
POBox 7140 
Te Ngae 
ROTORUA 
Ph: 59-325 AH 

WHAKATANE SEGA USER GROUP 

Contact K Nightingale 
240 King St 
WHAKATANE 
Ph: S4-500 

NAPIER SEGA USER GROUP 

Contacl Reicl Duncan 
Store Manager 
Agnews Refrigeration 
Ph 55-857, 57-431 

HAWERA SEGA USER GROUP 

Contact DM Beale 
7 A Clive St 
HAWERA 
Ph 85-108 

MARION SEGA USER GROUP 

Contact: Mr H R Miller 
41 Alexandra St 
MARTON 



WELLINGTON SEGA USER GROUP 

Contact Shaun Parsons 

PO Box 1871 

WELLINGTON 

Ph. 897-095 (AH) 727-666 (BUS) 

CHRISTCHURCH SEGA USER GROUP 

Contact: James O'Donnell 

15 Jebson St 

Shirley 

CHRISTCHURCH 

Ph 856-884 

TIMARU SEGA USER GROUP 

Contact: John Oliver 

South Canterbury Computer User Group 

PO Box 73 

TIMARU 

Ph 26-300 



OAMARU SEGA USER GROUP 

Contact Bill Dowman 
99 Aln St 
OAMARU 
Ph: 46-250 



DUNEDIN SEGA USER GROUP 

Central City Computer Interest Group 

Box 5260 

Moray Place 

DUNEDIN 

Contact: Graeme Simpson. 

Saddle Hill. R.D.l. Dunedin. 

Ph: (089) 6374 
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OVERSEAS SEGA 
USERS CLUBS 



SCORE 
CHALLENGE 



> 



A 



III 




Borderline 


m802.820 


Michael WilkinsonfcL 


Willi 


Congo Bongo 


175.490 


David Downs 


///// 


Flicky 


2.718.900 


B. A Smaill ^A 


//// 


Lode Runner 


38.000 


Steve Biggs ^^^ 






Monaco GP 


210.062 


Stewart Parkes " 


1, 




Pacar 


1.495,500 


Tony Sasso 


WW 




Pop Flamer 


117.000 


Richard Hendra 


w 


Sinbad Mystery 


190.000 


Stewart Parkes 


m 


Star Jacker 


398,000 


Steve Biggs 


Is 


Video Flipper 


999.880 


Andre Stokes 


1 


Yamoto 


85.000 


Stewart Parkes 




N-Sub 


76,250 


Reuban Jackson 




Safari Hunting 


8.400 


David Downs 




Safari Race 


30.000 


Jonathan Fletcher 




Orguss 


18.500 


David Downs 




Champion Tennis 


9-Love 


David Downs 




Challenge these Hi 


-Scores for Cartridge games by 






sending us yours. 







Klaus Pinker 
P.O. Box 18 
Belconnen 
ACT 2616 
Ph. 062 30 2334 

Scott McDonald 
2 Coolalie Ave 
Camden 
NSW 2570 
Ph 046 668 956 



John McLennan 

65 Highclere Blvd 

Marangaroo 

WA 6064 

Ph: 09 342 3905 



Jan Jacobson 
10 Pioneer Ave 
O'Sullivans Beach 
SA 5166 
Ph: 08 382 7967 



Les Beacall 

1/41 Cameron Road 

Croydon 

VIC 3136 

Ph. 03 725 0864 



Wayne Ariel 
35 Leanne Street 
Marsden 
QLD 4203 



56 




GAMES 

CARTRIDGE 

SOFTWARE 



701 BORDERLINE 

Manoeuvre your Jeep forward and 
backward to fight the enemy as you 
seek to destroy their fortresses and 
headquarters Real oction 

702 CHAMPION BASEBALL 
Squeeze, steal, and double play II 
play the computer or your friends. Very 
enjoyable. 

703 CHAMPION TENNIS 

Serve, receive and smash. Attack your 
rival's weak point. Very competitive. 

704 CONGO BONGO 

Watch out for falling coconuts ond 
pesky monkeys os you attempt to 
preserve the hunter's honour and 
capture the gorilla 




705 MONACO GP 

The race of your life with you at the 
wheel. Avoid Ihe other cars, the 
ambulance etc anJ above all watch 
those sign posts!! Exciting 

706 PACAR 

Sega's own version of Pacman. Can 
you keep up the torrid pace while 
destroying as many enemy cars as 
possible? 



707 POP FLAMER 

A mouse that operates a flame thrower! 
3 monslers to be eliminated here. Be 
especially wary of the Haradon. 

708 SINBAD MYSTERY 

Enjoy the cheerful adventures of Sinbad 
in his search for o chest of gold hidden 
on Treasure Island. 

709 STARJACKER 

A "new feeling" space gome. Glorious 
space troops Tight against the invoding 
"Dester" army. Fun for all the family 



710 VIDEO FLIPPER 

Pinboll fun for all A colourful exciting 
game of skill needing split second 
timing Even your five year old will love 
this 

711 YAMOTO 

A fierce battle against the enemy's 
torpedoes and missiles. Can you 
survive - you'll need all your wits about 
you. 



P.O. BOX 10-207 



Only Available from SEGA SOFTWARE SUPPORT *M^Amffi*a* 




The Fuel for thousands of Sega Users up and down the country 
No serious Sega owner should be without 



The complete range of the official Sega User Club magazines. 

Are you missing any? 




